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Kundenunterstützung 


Lesen Sie diese Information, bevor Sie das Siegel des Diskettenumschlags 
brechen. 


Das Siegel des Diskettenumschlags brechen bedeutet Akzeptieren der 
Bedingungen des A+L-Lizenzvertrags. 


A+L AG und deren Partner helfen Ihnen, Ihr Programm optimal einzusetzen. Wir 
empfehlen Ihnen, die folgenden Informationen über Registration, Unterstützung und 
Ihre Rechte und Pflichten als Kunde durchzulesen. 


A+L AG und deren Partner (dort wo Sie das Produkt gekauft haben) bieten Ihnen 
telefonische Unterstützung durch einen Kundendienst. Egal wie kompliziert Ihre 
Frage oder Ihr Problem ist, wir versuchen Ihnen rasch zu helfen. Bevor Sie jedoch 
anrufen, vergewissern Sie sich, dass Sie Ihre Registrationskarte/Lizenzvertrag ein¬ 
geschickt haben. Andernfalls ist die A+L AG davon entbunden, Ihnen Auskunft zu 
geben. 


Falls Probleme mit Ihrem Programm auftauchen, gehen Sie wie folgt vor: 

1. Versuchen Sie das Problem mit diesem Handbuch zu lösen. 

2. Rufen Sie A+L oder Ihren Händler zwischen 9 und 17 Uhr an. Sie sollten dann 
Ihre Programm-Serienummer zur Hand haben. 



Beschränkte Garantie 


A+L AG garantiert, dass: 


1. das Material, Disketten und Dokumentation nicht beschädigt sind. 

2. das Programm ordnungsgemäss auf die Diskette(n) kopiert ist. 

3. die Dokumentation vollständig ist und alle Informationen enthält, die A+L AG 
für die Bedienung des Programms als erforderlich hält. 

4. das Programm im Prinzip so funktioniert, wie es im Handbuch beschrieben ist. 


Falls Sie uns innert von 30 Tagen nach Auslieferung Fehler schriftlich melden 
oder uns defektes Material zustellen, steht Ihnen im Rahmen dieser be¬ 
schränkten Garantie das Recht zu, Disketten oder Software ersetzt zu 
bekommen. Legen Sie der schriftlichen Fehlermeldung das entsprechende 
Rückporto in Ihrer Währung bei. Das Recht auf Ersatz besteht nur, wenn wir im 
Besitze Ihres unterschriebenen Lizenzvertrages sind. Senden Sie diesen 
sowie allfällige Fehlermeldungen oder defekte Disketten an Ihren Händler 
oder an folgende Adresse: 


A+L AG 
Im Späten 23 
CH-8906 Bonstetten 
Schweiz 


A+L AG haftet nicht für direkte oder indirekte Schäden. 


A+L AG lehnt jede Art von Haftung oder stillschweigender Garantie ab, 
insbesondere, dass sich die Produkte von A+L AG für einen ganz bestimmten 
Zweck eignen. A+L AG beschränkt ihre Garantie auf das Ersetzen defekter 
Disketten und Programme. 


Entsprechend obenstehender Angaben tragen Sie als Anwender die Verant¬ 
wortung, mit Ihrem Programm sorgfältig umzugehen, und damit auch die 
Kosten mutwilliger Beschädigungen und Fehler ausserhalb der obgenannten 
Beschränkungen. 



Anwenderlizenz 


Erinnern Sie sich daran, dass das Aufbrechen des Siegels auf dem Disketten¬ 
umschlag das Akzeptieren der Bedingungen dieser Lizenz bedeutet. 


A+L AG behältt sich alle Rechte für ihre Programme vor. Jedes Programm fällt unter 
diesen Lizenzvertrag. Ein entsprechendes Vergehen wird geahndet. 


1. Erlaubter Gebrauch: Das Programm darf nur auf einem einzigen Computer 
mit einem einzigen Bildschirm verwendet werden. Sie dürfen eine oder 
mehrere Kopien dieses Programms hersteilen, damit Sie über ausreichend 
Kopiedisketten verfügen, falls Ihre Arbeitsdisketten zerstört werden. Dazu 
dürfen Sie eine und nur eine Kopie des Programms auf Ihrer Harddisk 
machen. 


2. Unerlaubter Gebrauch: Ohne ausdrückliche schriftliche Bewilligung von 
A+L AG dürfen Sie folgendes nicht tun: 

Das Programm in Verbindung mit mehr als einem Computer gleichzeitig 
verwenden. 

Das Programm, Kopien davon oder dessen Dokumentation an jemand 
anderes verkaufen. 

Erstellen von Kopien des Programms, der Dokumentation oder von 
Disketten, ausgenommen derjenigen Kopien, die in diesem Lizenz¬ 
vertrag bewilligt sind. 

Die Verwendung des Programms in einem Netzwerk, einem Time- 
Sharing-System, einem interaktiven Fernsehnetzwerk, einem Mehr¬ 
prozessorsystem oder einem Mehrplatzsystem falls nicht eine spezielle 
Lizenz von A+L vorliegt, beziehungsweise jeder einzelne Benutzer über 
eine eigene Lizenz mit A+L verfügt. 

Veränderungen am Programm vornehmen. 

Das Übertragen des Programms oder das Bewilligen einer Unterlizenz, 
Vermietung oder das Übertragen weiterer Rechte auf andere. 

Eine wörtliche oder übertragene Übersetzung der Dokumentation oder 
des Programms hersteilen. 

Anpassen des Programms an eine andere Hardware. 

Durchführen telefonischer oder elektronischer Datenübertragung des 
Programms. 

Vertrieb oder Vermietung des Programms an andere auf dauernder oder 
auch nur vorübergehender Basis. 



Beendigung der Lizenz. Die Lizenz gilt als beendet, wenn Sie alle Disketten, 
Dokumente und Kopien aller Art zerstören. Diese Lizenz fällt ebenfalls dahin, wenn 
Sie gegen eine der obgenannten Bedingungen verstossen. Sie sind in einem 
solchen Fall verpflichtet, alle Ihre Disketten, Dokumente und Kopien aller Art zu 
vernichten. 
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Einleitung 


Modula-2 ist eine der neusten Sprachschöpfungen von Prof. Niklaus 
Wirth. Niklaus Wirth hat schon bei der Sprache Algol mitgewirkt, ferner 
eine Algol-Variation Algol-W vorgestellt, und er konnte seinen bisher 
grössten Erfolg mit der Sprache Pascal verbuchen. Dieser Erfolg scheint 
langsam von Modula-2 übertroffen zu werden, was nicht weiter 
verwunderlich ist, denn Modula-2 wird oft als Nachfolger von Pascal 
bezeichnet, aller Mängel bereinigt und um die Modularität und der 
systemnahen Möglichkeiten erweitert. 


Doch Modula-2 ist weit mehr. Gleichzeitig mit der Sprachdefinition 
arbeitete Niklaus Wirth am Institut für Informatik an der ETH Zürich 
auch an einem Computer, der nur eine einzige Sprache versteht: 
Modula-2. Das Ziel war, alle Teile des Betriebssystems, sowie alle 
Anwendungsprogramme in Modula-2 zu programmieren. Im Jahre 1981 
stellte Niklaus Wirth diesen "Modula-2 Computer" der Öffentlichkeit 
vor. 


Seither ist oft genug bewiesen worden, dass Modula-2 auch für andere 
Rechner eine leistungsfähige Sprache ist. Die Klarheit der Sprache, die 
mögliche Aufteilung eines Programms und die trotzdem garantierte 
Verträglichkeitsprüfung machten Modula-2 zu einer oft verwendeten 
Entwicklungsumgebung auch für Grossprojekte. 


Im Jahre 1985 stellte Niklaus Wirth am Institut für Informatik einen 
neuen Compiler vor: Kleine Änderungen der Sprachdefinition von 
» Modula-2 machten es möglich, Modula-2 Programme in einem 
Durchgang zu compilieren. Das Resultat ist ein extrem schneller 
Compiler, der verhältnismässig klein ist. Dass das Einpass-Konzept 
keine entscheidende Einschränkung ist, zeigt sich in der Tatsache, dass 
der Compiler sich selbst compiliert. 

Der Amiga Modula-2 Compiler basiert auf diesem Compiler. Er wurde 
speziell auf den Amiga zugeschnitten (Benutzerumgebung, Codeformat 
usw.) und in ein komplettes System eingebettet. Das Resultat ist ein 
Entwicklungssystem, das schnell und sauber arbeitet, sich sehr gut in die 
Amiga-Umgebung integriert und hoffentlich auch Ihnen Freude bereiten 
) wird. 
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Was bietet dieses Handbuch? 


Es beschreibt die Bedienung des Amiga Modula-2-Systems und richtet 
sich an diejenigen Programmierer, die bereits mit Modula-2 vertraut 
sind, oder die mit Hilfe eines Einführungsbuchs erste Schritte auf einem 
Computer wagen. 


Es werden alle zum System gehörenden Komponenten ausführlich 
beschrieben. Dies sind ein Compiler, ein Linker, ein Editor, zwei 
Hilfsprogramme und alle Definitionen und Betriebssystemschnittstellen. 


Dieses Handbuch ist weder ein Einführungs-, noch ein Nachschlagebuch 
für die Sprache Modula-2. Es ersetzt keinesfalls eine Dokumentation 
über den Commodore Amiga. Die Kommentare in den Schnittstellen¬ 
beschreibungen sind äusserst knapp gehalten, man konsultiere die 
entsprechenden Handbücher für diese Routinen. 

Aufbau 

Das Handbuch ist in 14 Teile gegliedert. Jeder Teil führt ein 
Inhaltsverzeichnis. 

Amiga Modula-2: Eine Einführung in das vorliegende 
Handbuch. Zeigt im wesentlichen dessen Benutzung. 

Installation: Eine Installationsanleitung für Amiga Modula-2. 
Bitte lesen Sie diesen Teil durch! 


Arbeitsumgebung Amiga Modula-2: Allgemeingültige Angaben 
über Benutzerführung der Programme. Deckt auch erste 
Unterschiede zwischen CLI und Workbench auf. 


Editor: Eine Anleitung zu m2emacs, dem mitgelieferten Editor. 
Ein äusserst mächtiger Editor, dessen Verwendung empfohlen 
wird. Auch ohne Kenntnis aller Befehle leicht zu handhaben, 
wovon die wichtigsten via Menu erreichbar sind. 
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Compiler: Erklärt nebst der Arbeitsweise allfällige 
Besonderheiten zu anderen Modula-2 Compilern. Die 
systemspezifischen Unterschiede und insbesondere das Modul 
SYSTEM sind beschrieben. 


Linker: Erklärt, wie Modula-2 Programme auf dem Amiga 
ablauffähig gemacht werden. 


Fehlerlister: Zeigt die Möglichkeit, lesbare Fehlerprotokolle zu 
erhalten. Ist nur notwendig, wenn man m2emacs nicht 
verwendet. 


Anmerkungen zu Amiga Modula-2: Erklärt die Unterschiede zu 
anderen Implementationen von Modula-2 


Laufzeitsystem: Erklärt die Funktion des Laufzeitsystems. 


Technische Angaben: Gibt Informationen über interne Details 
von M2Amiga. 

Programmierhinweise: Diese Kapitel soll helfen in C ge¬ 
schriebene Amiga-Programme auf Modula-2 umzuschreiben. 


Bibliotheken: Zeigt die Definitionen der mitgelieferten 
Bibliotheken und erklärt kurz aber detailliert die Funktion der 
einzelnen Variablen und Prozeduren. 


Schnittstellen-Moduln: Die Definitionen aller Amiga-Libraries 
(und Devices). Die Definitionen sind exakte Übersetzungen der 
offiziellen C-Schnittstellen. Für die Funktionsweise sei darum 
auf die Amiga-Literatur verwiesen. 


Cross-Reference: Ein Index über alle mitgelieferten Moduln. 
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Notation 


Neu einzuführende Begriffe erscheinen zuerst im Fettdruck, gefolgt von 
der Definition oder einem entsprechenden Verweis. 


Begriffe, die sich auf einen aktuellen Bildschirminhalt beziehen, 
Eingaben oder Programmteile sind in einer nichtpropor¬ 
tionalen Schrift dargestellt, manchmal auch durch Anführungs¬ 
zeichen hervorgehoben. 


Anmerkung: Abschnitte, die mit dem Wort Anmerkung beginnen, 

geben weitere Informationen oder nützliche Hinweise 
zum Thema. 


Warnung: Abschnitte, die mit dem Wort Warnung beginnen, 

sprechen schwerwiegendere Probleme des gegen¬ 
wärtigen Themas an. Sie sind zusätzlich durch einen 
_Rahmen hervorgehoben._ 


Beispiel. Beispiele sind mit dem Wort Beispiel eingeleitet. Zusätzlich 
sind sie durch einen Balken am linken Rand gekenzeichnet. 

Terminologie 

Folgende Bezeichnungen werden in diesem Handbuch verwendet: 

Bildschirm soll hier nicht den Monitor benennen, sondern die der 
Amiga-Nomenklatur entsprechenden "Screens", also 
jene Einheiten, die durch ein bestimmtes 
Erscheinungsbild (Auflösung, Farbenzahl und - 
Palette) ausgezeichnet sind. 

CLI bezeichnet das sogenannte "Command Line 

Interface", übersetzt die Befehls-Zeilen-Schnittstelle, 
also die Benutzerschnittstelle des Amiga, welche die 
Eingabe von Programmnamen und Argumenten 
erlaubt. 
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Fenster 


Optionen 


Workbench 


<ALT> 


<CTRL-A> 


("Window") sind eine Art Arbeitsbereiche. Ein 
einzelnes Fenster wird behandelt, wie wenn man 
einen ganzen Computerschirm vor sich hätte. Fenster 
können ausserdem auf verschiedene Arten angeordnet 
werden, d.h in den Hintergrund gerückt, vergrössert, 
verkleinert oder überlappt werden. 


sind zusätzliche Anweisungen an ein Programm. 
Diese werden oft auch Schalter genannt, da man 
gewisse Eigenschaften ein- oder ausschaltet. So ist es 
beispielsweise möglich, den Compiler anzuweisen, 
keine Statusinformationen auszugeben. Allerdings 
gibt es auch einige Optionen, die zusätzliche Angaben 
verlangen. Für diese ist das Wort Schalter eher 
irreführend. 


zu Deutsch nichts anderes als der Arbeitstisch, 
bezeichnet die grafische Benutzerschnittstelle, die 
dank den Ikonen eine einfache Bedienung des Amiga 
ermöglicht. 


bezeichnet die ALT-Taste auf der Amiga-Tastatur. 
Die entsprechenden Bezeichnungen gelten ebenfalls 
für folgende Tasten: <BACKSPACE> (oder <— auf 
anderen wie US-Amiga 1000), <CTRL>, <DEL>, 
<ENTER>, <ESC>, <HELP>, <RETURN> (J), 

<SHIFT> (t), <TAB> (->|), sowie für <F1> bis 
<F10> für die Funktionstasten. 


bezeichnet die Tastenkombination von CTRL-Taste 
und der entsprechenden Buchstabentaste (hier "A") 
auf der Amiga-Tastatur. Solche Kombinationen sind 
üblich für <ALT>, <CTRL> und <SHIFT>. Für die 
Erzeugung drücke man zuerst die entsprechende 
Sondertaste und dann die Buchstabentaste. 

ist eine Abkürzung für <CTRL-B>. 
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<-»,«->,<?>,<!> bezeichnen die vier Pfeiltasten. 

Verweise 

An einigen Stellen wird zur Erläuterung auf die Amiga- und Modula-2 
Dokumentation verwiesen. Die entsprechenden Publikationen sind: 

[APM] Ingolf Krüger: 

Amiga, Programmieren mit Modula-2 
Markt & Technik 


[DOS] Commodore Amiga Inc.: 

The Amiga DOS Manual 
2 n d Edition 

Bantam Computer Books 


[HARDWARE] Commodore Business Machines, Inc.: 

Amiga Hardware Reference Manual 
Addison-Wesley 


[INTUITION] Commodore Business Machines, Inc.: 

Amiga Intuition Reference Manual 
Addison-Wesley 

[MC68000] Motorola Semiconductors: 

MC68000 16/32-Bit Microprocessor 
Programmer's Reference Manual 


[PIM3] Niklaus Wirth: 

Programming in Modula-2 

Third edition 

Springer 


[RKM1] Commodore Business Machines, Inc.: 

ROM Kemel Manual Part 1: Exec 
Addison-Wesley 
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[RKM2] 


Commodore Business Machines, Inc.: 

ROM Kernel Manual Part 2: Libraries and Devices 
Addison-Wesley 
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Installation 


Inhalt der Disketten. 

Dateien geringerer Bedeutung 
Dateien mit fester Anordnung 
Andere Dateien. 

Der erste Schritt. 

Installation auf Floppy Disk 

Installation auf Festplatte... 

Wie geht es weiter?. 


Installation 












Inhalt der Disketten 


Kontrollieren Sie zunächst die Vollständigkeit des erworbenen Produkts. 

Stellen Sie dabei sicher, dass die Disketten schreibgeschützt sind, d.h. 

die Schalter auf den Disketten offen sind. 

Die Diskette 1, die Systemdiskette, sollte folgende Dateien enthalten. 

LiesMich Enthält Änderungen zum Handbuch, die 

nicht mehr darin aufgenommen werden 
konnten. 

) Startup-Add Textdatei mit den Ergänzungen zu der Datei 

Startup-Sequence. 

Def.zoo Archivdatei, die alle Definitionsmoduln von 

M2Amiga enthält. 

M2 Verzeichnis, das alle zu M2Amiga gehören¬ 

den Dateien enthält. 

M2/m2c M2Amiga-Compiler. 

M2/m21 Linker (Binder). 

) M2/m2emacs Bildschirmorientierter Editor. Dieser Editor 

ist speziell auf die Bedürfnisse des 
Modula-2-Programmierers angepasst. 

M2/m2project Programm zum Anlegen eines Projektver¬ 

zeichnisses. 

M2/m2error Programm zum Erzeugen einer Fehlerliste. 

Dieser kommt nur zum Einsatz, wenn Sie 
m2emacs nicht einsetzen wollen. 
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M2 / Fehler-Meldungen 

M2/path 
M2/icons/txt.info 

M2/icons/sym.info 

M2/icons/obj.info 

M2/icons/ref.info 

M2/icons/bin.info 

M2/icons/dir.info 

M2/icons/ txt Dir.info 

M2/icons/symDir.info 

M2/icons/objDir.info 


Datei, welche die Fehlermeldungen in 
Klarform enthält. Diese werden von 
m2emacs und m2error benötigt. 


Pfaddatei. 

Standardikone, die vom Editor für neu¬ 
erstellte Textdateien verwendet wird. 


Standardikone, die vom Compiler für neu¬ 
erstellte Symboldateien verwendet wird. 


Standardikone, die vom Compiler für neu¬ 
erstellte Objektdateien verwendet wird. 


Standardikone, die vom Compiler für neu¬ 
erstellte Referenzdateien verwendet wird. 


Standardikone, die vom Linker für 
neuerstellte Programmdateien verwendet 
wird. 


Standardikone, die von m2project für das 
Projektverzeichnis verwendet wird. 

Standardikone, die von m2project für das 
Verzeichnis der Textdateien verwendet wird. 


Standardikone, die von m2project für das 
Verzeichnis der Symboldateien verwendet 
wird. 


Standardikone, die von m2project für das 
Verzeichnis der Objektdateien verwendet 
wird. 
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M2/icons/refDir.info Standardikone, die von m2project für das 

Verzeichnis der Referenzdateien verwendet 
wird. 


M2/icons/binDir.info Standardikone, die von m2project für das 

Verzeichnis der Programmdateien verwen¬ 
det wird. 


M2/Modules 


Verzeichnis, das alle mitgelieferte Bibliothe¬ 
ken und Schnittsteilen-Moduln enthält. 


M2/Modules/... Die kompilierten Versionen der in 

"Bibliotheken" und "Schnittsteilen-Moduln" 
beschriebenen Moduln. 


Die Funktion dieser Dateien wird an anderer Stelle noch genauer 
erklärt. Vorerst ist nur von Bedeutung, welche Dateien überhaupt 
gebraucht werden. Ausserdem ist wichtig, ob diese Dateien an 
bestimmte Verzeichnisse gebunden sind, oder ob Sie irgendwo auf Ihrer 
Diskette oder Festplatte abgelegt werden dürfen. 


Die Dateien der Diskette 2, der Demonstrationsdiskette, sind nicht 
festgelegt. Es handelt sich um eine Auswahl der bei Zusammenstellung 
interessantesten Demonstration-Programme. Jedes Programm ist dabei 
in einem Projektverzeichnis abgelegt. Erläuterungen sind ebenfalls 
innerhalb des Projekts und haben die Endung . doc. 


Es ist übrigens keineswegs verboten, die Demonstrationsprogramme 
(Diskette 2) mit anderen Modula-2-Anwendern auszutauschen. Erst 
der rege Erfahrungsaustausch kann alle Möglichkeiten eines Produkts 
aufzeigen, was sehr wohl auch in unserem Interesse liegt. 


Dateien geringerer Bedeutung: 


Die Datei LiesMich enthält all die Informationen, die bei Druck des 
Handbuchs noch nicht bekannt waren. Diese Datei ist für den Betrieb 
von M2Amiga ohne Bedeutung. 
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Die Datei Startup-Add enthält Anweisungen, die in die Datei 
Startup-Sequence eingefügt werden sollen. Danach ist auch 
diese Datei nicht mehr nötig. Diese zusätzlichen Befehle sind: 


Assign M2: SYS: 

Stack 20000 

Die Assign-Anweisung definiert ein logisches Gerät mit dem Namen 
M2 : . Die Text- und Objektikonen enthalten als Defaulttool 
M2 :m2emacs beziehungsweise M2 :m21. Die Pfad-Datei (M2 :path) 
enthält den Eintrag M2 rModules als Verzeichnis, in welchem die 
Bibliotheken abgelegt sind. 

Die Vergrösserung des Stapelbereichs ist für den Compiler erforderlich. ( 
Dieser arbeitet nach dem "Recursive-Descent"-Prinzip. Diese Technik 
erfordert eine grosse Zahl rekursiver Prozeduraufrufe, die einen 
grösseren Stapelbereich benötigen. 


In der Datei D e f . z o o sind alle Definitionsmoduln in Quellform 
abgelegt. Diese sind allerdings ausschliesslich zum Lesen zu verwenden 
und dürfen keinesfalls kompiliert werden. Anderenfalls können Sie die 
mitgelieferten Bibliotheksmoduln nicht mehr gebrauchen, da die 
Schlüssel unverträglich sind. Diese Datei ist eine Archivdatei, in der die 
Definitionsmoduln in komprimierter Form abgelegt sind. Sie können die 
Moduln mit dem auf der Demonstrationsdiskette mitgeliefertem, 
Programm zoo auspacken. Wechseln sie dazu mit dem CD-Befehl 
[DOS] in das Verzeichnis in dem die Definitionsmoduln abgelegt werden 
sollen. Geben sie dann den Befehl 


| zoo -extract Modula-2:Def.zoo 


ein um alle Definitionsmoduln aus dem Archiv zu entnehmen. Sie 
können auch nur einzelne Module dem Archiv entnehmen, indem sie den 
Namen des Moduls angeben. 

Beispiel: Sie wollen dem Archiv das Modul InOut.def entnehmen 

zoo -extract Modula-2:Def.zoo InOut.def 
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Dateien mit fester Anordnung: 


Die Dateien Fehler-Meldungen, path und das Verzeichnis 
icons werden im Verzeichnis M2 : erwartet. Die Datei Fehler- 
Meldungen wird von den Programmen m2emacs und m2error 
benötigt. Sie enthält alle Fehlermeldungen in Textform, da in den vom 
Compiler erzeugten Fehlerdateien nur Fehlemummem enthalten sind. 


Die Datei path enthält eine Liste aller Verzeichnisse, in denen sich zu 
importierende Moduln befinden. Die mitgelieferte path-Datei 
verweist nur auf das Verzeichnis M2 : Modules. 

Das Verzeichnis icons enthält die Ikonen für alle verschiedenen 
Datei- und Verzeichnistypen, die von den M2Amiga-System- 
programmen erzeugt werden. Falls Ihnen die mitgelieferten Ikonen 
nicht Zusagen, können Sie sie mit einem Ikoneneditor selbst 
modifizieren. Natürlich sind diese Dateien vor allem in der Workbench- 
Umgebung wichtig. Andernfalls können Sie diese Dateien auch löschen. 


Andere Dateien: 


Alle anderen Dateien können Sie (fast) beliebig plazieren. Sie müssen 
nur darauf achten, dass gewisse Dateien vom System oder vom Amiga- 
Betriebssystem automatisch gefunden werden müssen. 


Dies ist einerseits der Fall bei den Programmen m2emacs und m21. 
Die Ikonen für die Text- und Objektdateien enthalten als Defaulttool 
den Eintrag M2 :m2emacs und M2 :m21. Folglich müssen m2emacs 
und m21 in einem gemeinsamen Verzeichnis liegen, dem sie mit dem 
Assign-Befehl (-»[DOS]) den logischen Namen M2 : zuordnen. Eine 
andere Möglichkeit ist, dass Sie in den Ikonen 
M2 : icons/txt. inf o und M2 : icons/ob j . inf o mit Hilfe des 
Info-Befehls der Workbench das Defaulttool abändem. 


Für die Bibliotheksmoduln gilt analoges. In der Datei M2 :path muss 
vermerkt sein, wo diese zu finden sind. In der mitgelieferten path- 
Datei ist ein einziges Verzeichnis M2:Modules angegeben. Falls die 
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Moduln nicht dort abgelegt sind, muss die Pfad-Datei entsprechend 
geändert oder erweitert werden. 


Die verbleibenden Programme m2c,m2error und m2pro ject 
dürfen sich in einem beliebigen Verzeichnis befinden. Dieses Verzeichnis 
ist vorzugsweise im Pfad [DOS] vorhanden, um den Aufruf der 
Programme zu vereinfachen. 


Die Dateien m2c und m21 werden auf jeden Fall benötigt. Das 
Programm m2pro ject benötigen Sie nur, um Projektverzeichnisse zu 
erstellen. Von den Programmen m2emacs und m2error brauchen Sie 
normalerweise nur eines. Der mitgelieferte Editor m2emacs gibt die 
Fehlermeldungen im Klartext aus und setzt überdies den Cursor auf die 
Fehlerstelle. Falls Sie jedoch lieber mit einem anderen Editor arbeiten, 
dann benötigen Sie m2error. Der Compiler produziert nämlich nur 
eine codierte Fehlerdatei. Das Programm m2error erstellt aus Ihrem 
Quelltext und der Fehlerdatei eine Fehlerliste, in der die fehlerhaften 
Zeilen und Fehlermeldungen enthalten sind. 


Damit Sie M2Amiga verwenden können, kopieren Sie die Dateien auf 
Ihre Festplatte. Falls Sie mit Disketten arbeiten, erstellen Sie eine 
Startdiskette, die neben den M2Amiga-Dateien noch einen Teil der auf 
der Workbench-Diskette benötigten Dateien enthält. 


Bevor Sie sich diese Dateien ansehen oder gar mit der Installation 
beginnen, sollten Sie unbedingt eine Sicherheitskopie der M2Amiga- 
Diskette anfertigen. Dies können Sie mit dem Befehl 

Diskcopy dfO: to dfl: 


tun. Wenn Sie dazu aufgefordert werden, sollten Sie die mitgelieferte 
Diskette in das Laufwerk 0 (internes Laufwerk) und eine leere Diskette 
in das Laufwerk 1 (externes Laufwerk) legen. Achten Sie darauf, dass 
die Originaldiskette vor dem Überschreiben geschützt ist. Der 
Schreibschutz ist dann aktiv, wenn der Schreibschutzschieber der 
Diskette offen ist. 


Nachdem Sie die Sicherheitskopie erstellt haben, sollten Sie nur mit 
dieser Kopie Weiterarbeiten. Die Originaldiskette versorgen Sie am 
besten an einen sicheren Ort, also beispielsweise nicht auf dem Monitor 
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und auch nicht in Reichweite von Haustieren. Die Kopie wird am besten 
auch schreibgeschützt. Wenn in der nachfolgenden Anleitung von der 
Originaldiskette gesprochen wird, sollten Sie die soeben erstellte Kopie 
verwenden. 


Diese Hinweise sollten bereits genügen, um sich Ihr System so 
zusammenzustellen, wie es für Ihre Konfiguration (Diskette/Festplatte, 
verfügbarer Speicher usw.) am besten ist. Um Ihnen die Arbeit etwas zu 
erleichtern, folgen nun als Beispiele die Installation für den Betrieb mit 2 
Diskettenlaufwerken und für den Betrieb mit einer Festplatte. 

Der erste Schritt 

Bevor Sie mit der Installation beginnen, sollten Sie unbedingt die Datei 
mit dem Namen LiesMich anschauen. In dieser Datei sind allfällige 
Neuerungen, die nicht mehr ins Handbuch aufgenommen werden 
konnten, verzeichnet. 

Arbeiten Sie mit dem CLI, so tippen Sie bitte: 

Modula-2:M2/m2emacs Modula-2:LiesMich 

bevorzugen Sie die Workbench, so doppelklicken Sie die Ikone mit dem 
Namen LiesMich. 

Spätestens jetzt ist allerdings die Zeit für die Sicherheitskopie 
gekommen. Aber die haben Sie ja schon längstens gemacht, oder? 

Installation auf Floppy Disk 

Starten sie Ihren Amiga mit der Workbench Diskette, die Sie 
üblicherweise benutzen. Legen Sie eine leere Diskette in das externe 
Laufwerk (df 1:) und formatieren Sie diese mit dem Befehl: 

format drive df1: name M2Amiga 
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Kopieren Sie nun alle wichtigen Dateien von Ihrer Originaldiskette auf 
die soeben formatierte Diskette mit dem Befehl: 

copy Modula-2:M2 M2Amiga: all + 

Es ist wichtig, dass Sie das Pluszeichen (+) ebenfalls eingeben, und 
zwischen dem Pluszeichen und dem Drücken der <RETURN>-Taste 
keine Leerzeichen eingeben. Nun wird den Copy Befehl von der 
Workbench Diskette geladen, aber noch nicht ausgeführt. Wenn die LED 
des Laufwerks, in dem sich die Workbench-Diskette befindet, erloschen 
ist, entnehmen Sie die Workbench-Diskette und legen stattdessen die 
Originaldiskette ein. Drücken Sie danach nochmals <RETURN>, und 
die Dateien werden kopiert. 


Wenn der Kopiervorgang abgeschlossen ist, können Sie die 
Originaldiskette wieder entfernen und die Workbench-Diskette wieder 
einlegen. Es wurden alle für den Gebrauch von M2Amiga relevanten 
Dateien auf die leere Diskette überspielt. Damit aus dieser Diskette eine 
"workbenchartige" Diskette wird, die Sie anstelle der Workbench zum 
Aufstarten des Amigas verwenden können, müssen noch einige Dateien 
kopiert werden. Sie sollten dazu die Verzeichnisse "L", "S" und "LIBS" 
von Ihrer Workbench-Diskette auf die neue Diskette kopieren. 


MakeDir M2Amiga:L 
Copy L: M2Amiga:L 
MakeDir M2Amiga:S 
Copy S: M2AMiga:S 
MakeDir M2Amiga:LIBS 
Copy LIBS: M2Amiga:LIBS 


Weiterhin benötigen Sie die Befehle die in den Verzeichnissen C:, 
System: und Utilities : enthalten sind. Kopieren sie aber nur die 
Befehle, die Sie wirklich benötigen, den sonst haben sie zuwenig Platz 
auf der Diskette. Dasselbe gilt für das DEVS : -Verzeichnis. In diesem 
Verzeichnis sind neben den allgemeinen Gerätetreibern auch noch alle 
Drucker- und Tastaturtreiber enthalten. Kopieren Sie nur diejenigen 
Drucker- und Tastaturtreiber, die sie wirklich benötigen. Eine mögliche 
Auswahl wäre: 
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MakeDir M2Amiga:DEVS 
Copy DEVS: M2Amiga:DEVS 
MakeDir M2Amiga:C 

Copy C:(Dir|Type|Copy|Delete) M2Amiga:C 
Copy C:(Assign|Path|Run|Execute) M2Amiga:C 
Copy C:(List|MakeDir|Rename|NewCLI) M2Amiga:C 
Copy C:(If|Else|Endif|Echo) M2Amiga:C 
Copy C:(Cd|Loadwb|EndCLI|Stack) M2Amiga:C 
MakeDir M2Amiga:System 

Copy DFO:System/(CLIIDiskCopy|Format)#? M2Amiga:System 

Auf das FONTS : -Verzeichnis sollten Sie verzichten, denn dafür hat es 
kaum noch Platz auf der Diskette. 


Im S: Verzeichnis befindet sich die Datei Startup-Sequence. In 
dieser Datei stehen alle Befehle, die beim Aufstarten des Systems 
ausgeführt werden. Zu den bereits in der Startup-Sequence 
existierenden Befehlen sollten noch diese beiden hinzugefügt werden: 

Stack 20000 
Assign M2: SYS: 


Sie können diese zwei Zeilen mit einem Editor in die Datei 
Startup-Sequence einfügen. Vergessen Sie auch auf keinen Fall, 
den richtigen Tastaturtreiber zu aktivieren, beispielsweise durch den 
Befehl 


SetMap d 

in der Datei Startup-Sequence. (Hier wurde als Beispiel der 
deutsche Tastaturtreiber geladen). 


Zum Schluss müssen Sie noch dafür sorgen, dass der Amiga die neue 
Diskette auch als Bootdiskette erkennt. Dies wird mit dem Install- 
Befehl gemacht: 

Install drive df1: 
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Nun ist die Installation abgeschlossen. Sie können mit der soeben 
erstellten Diskette den Amiga neu aufstarten (<CTRL>-<Amiga>- 
<Amiga>). Es empfiehlt sich jedoch, zuvor auch von dieser Diskette eine 
Sicherheitskopie anzufertigen. Damit ersparen Sie sich, falls die 
Diskette zerstört wird, die zeitaufwendige Installation ein weiteres Mal 
durchführen zu müssen. 

Installation auf Festplatte 

Nachdem sie Ihren Amiga aufgestartet haben, legen Sie die 
Originaldiskette in das interne Laufwerk (dfO:). Legen sie nun für 
M2Amiga ein eigenes Verzeichnis auf Ihrer Festplatte an und kopieren 
Sie alle wichtigen Dateien in dieses Verzeichnis. In den nun folgenden 
Beispielen wird angenommen, dass Ihre Festplatte mit dh 0 : 
angesprochen wird, und dass Sie darauf ein Verzeichnis mit dem Namen 
M2Amiga erstellen: 


MakeDir dhO:M2Amiga 

copy dfO:M2 dhO:M2Amiga: all 

Folgende zwei Zeilen müssen in die Datei Startup-Sequence 
eingefügt werden: 

Stack 20000 

Assign M2: dhO:M2Amiga 


Sie können diese zwei Zeilen mit einem Editor einfügen. 

Nun ist die Installation abgeschlossen. Sie sollten den Amiga neu 
aufstarten, damit die in der Datei Startup-Sequence eingefügten 
Befehle auch ausgeführt werden. 

Wie geht es weiter? 

Sie sollten jetzt ein ordnungsgemäss installiertes System besitzen. Wenn 
Sie weiterlesen, sollten Sie am besten vor dem Computer sitzen und die 
erwähnten Dinge gleich ausprobieren. Ist etwas nach dem Lesen des 
Handbuchs unklar, hilft meist die Praxis weiter. Suchen Sie die 



erwähnten Programme und "bewegen" Sie sich etwas im System, und 
Sie werden sich bald wie zu Hause fühlen! 
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Dieser Teil zeigt, aus welchen Komponenten Amiga Modula-2 besteht, 
wie diese anzuwenden sind und von welchen Voraussetzungen die 
Programme ausgehen. 

Übersicht 

Die Grundversion von Amiga Modula-2 besteht aus fünf Programmen. 
Diese fünf Programme sind: 


m2c 

Der Amiga Modula-2 Compiler 

m21 

Der Linker, der aus den vom Compiler erzeugten 
Dateien ablauffähige Programme macht. 

m2emacs 

Der bildschirmorientierte Editor, der alle vom 
Compiler gefundenen Fehler der Reihe nach anzeigt. 

m2project 

Ein Hilfsprogramm, das die Verwaltung der einzelnen 
Dateien vereinfacht. 

m2error 

Ein Hilfsprogramm, das erst zur Anwendung kommt, 
falls man einen anderen Editor benützen möchte. 


Das Programm "m2project" ist in diesem Teil beschrieben, die anderen 
Programme sind in einem eigenen Teil erläutert. Allgemeingültige 
Angaben werden im immittelbar folgenden Abschnitt "Programmaufruf ’ 
gegeben. 

Programmaufruf 

Alle Programme des Amiga Modula-2 Systems sind mit einer 
einheitlichen Benutzerschnittstelle ausgestattet. Wenn Sie den 
Aufrufmechanismus eines Programms kennen, dann wissen Sie auch, 
wie die anderen Programme zu aktivieren sind. Falls Sie diese 
Schnittstelle schätzen, empfehlen wir Ihnen, alle eigenen Programme 
mit der gleichen Schnittstelle zu versehen. Verwenden Sie dazu das im 
Teil "Bibliotheken" beschriebene Modul "Arguments". 
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Die Arbeitsweise der Programme kann zusätzlich mit Optionen 
(Schalter) beeinflusst werden. Optionen können nur vom CLI aus 
angegeben werden. Ein Programm funktioniert aber immer auch ohne 
spezielle Optionen, diese bieten lediglich zusätzliche Möglichkeiten. 


Optionen 


sind durch einzelne Buchstaben bezeichnet und werden mit einem 
eingeleitet. Optionen müssen vor den restlichen Programmargumenten 
stehen. Parameterlose Optionen können wie folgt angegeben werden: 

befehl -x setzt die Option "x". 

befehl -xl setzt die Optionen "x" und "1". 

befehl -x -1 setzt die Optionen "x" und T\ 

Optionen mit Parameter werden folgendennassen angegeben: 

befehl -d Verzeichnis setzt die Option "d" mit dem 

Argument "Verzeichnis". 

Wird das Programm von der Workbench aus aufgerufen, sind gewisse 
Optionen automatisch gesetzt (beispielsweise Ikonenerzeugung). 


Argumente 

werden auf der Befehlszeile hinter den Optionen angegeben und sind 
durch Leerzeichen voneinander getrennt; allerdings können auch 
Leerschläge in ein Argument eingefügt werden. Details entnehme man 
dem Kapitel "Arguments" im Teil "Bibliotheken". 

In der Workbench-Umgebung können die Argumente durch "erweiterte 
Selektion" übergeben werden. Dazu wähle ("klicke") man das 
auszuführende Programm, gefolgt von allen gewünschten Argumenten. 

Beim letzten Argument muss entweder "doppelgeklickt", oder die 
Funktion "Open" im Workbench-Menu gewählt werden, um das Ende 
der Eingabe anzugeben. Dabei muss für jede Auswahl die <SHIFT>- 
Taste gedrückt werden, da sonst nur eine Selektion möglich ist. f 
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Ein Programm kann allerdings auch ohne Argumente aufgestartet 
werden. Das Programm wechselt in einen interaktiven Modus, d.h. es 
fragt solange nach einem Argument, bis ein leeres Argument eingegeben 
wird. Diese Lösung erlaubt das Erstellen besonders einfacher 
Befehlsfolgen, die ohne weiteres Zutun ablaufen. Um zehn Programme 
zu compilieren, braucht es nur eine Datei mit den entsprechenden 
Dateinamen, und der Befehl 

m2c <datei 


compiliert alle in "datei" vermerkten Moduln. 
Hilfe 


ist jederzeit zu bekommen. Erscheint ein einzelnes "?" vor dem ersten 
Programmargument, wird der Befehl nicht ausgeführt. Stattdessen 
erscheint eine Meldung, die etwa so aussieht: 


1> m2error ? 

m2error, 3.2, 1.11.88, © AMSoft 

Aufruf: m2error [-x] {Dateiname} 


Die erste Zeile bezeichnet den Programmnamen, Versionsnummer und 
Datum. Die zweite Zeile beschreibt die Anwendung. Alles in eckigen 
Klammern ([—x]), kann weggelassen werden. Alles in geschweiften 
Klammem ({Dateiname}) bezeichnet die beliebige Wiederholung (auch 
null Mal) dieses Argumenttyps. Diese Zeile besagt also, dass "m2error" 
mit einer Option, die weggelassen, und mit keinem, einem oder beliebig 
vielen Modul- oder Dateinamen auf gerufen werden kann. Sind 
mehrere Buchstaben hinter dem Strich, der die Optionen einleitet, so ist 
das für jede Option einzeln zu verstehen: 


befehl [-bim] 


heisst, dass das Programm mit keiner, einer, zwei oder allen drei 
Optionen aufgerufen werden kann. 
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Das Projekt-Konzept 


Einleitung 


Im Allgemeinen wird ein grösseres Modula-2 Programm aus mehreren 
Moduln bestehen. Jedes Modul umfasst seinerseits mehrere Dateien, 
wie zum Beispiel die Textdateien (das Definitions-, Implementations¬ 
oder Programm-Modul), die Symboldateien, die Referenzdateien und 
zu guter letzt die fertig gelinkten Amiga Programme. 


Entwickelt man nun diverse Modula-2 Programme, hat man schnell eine 
grössere Anzahl Dateien, die - ohne besondere Vorkehrungen - 
unübersichtlich auf der Diskette oder Harddisk "herumliegen". Man 
verliert somit schnell die Übersicht, welche Files zu welchem Modul 
gehören, und welche Moduln zu welchem Modula-2 Programm gehö¬ 
ren. 


Das Betriebssystem bietet uns schon eine Möglichkeit an, um auf der 
Diskette oder Harddisk eine übersichtliche Anordnung mehrerer 
Dateien vornehmen zu können; die Verzeichnisse bzw. Unterverzeich¬ 
nisse (directories oder drawers). Wir benützen diese Möglichkeit und 
bauen sie zu einem eigentlichen Konzept aus; unser Projekt-Konzept. Es 
genügt nämlich nicht, wenn sie als Benutzer einfach Ihre Ordnung auf 
dem externen Speicher vornehmen, unsere Programme (Compiler, 
Linker, Loader, Debugger...) Ihre Anordnung der Dateien aber 
unberücksichtigt lässt. 


Wenn sie ein Modula-2 Programm entwickeln - nehmen wir als Beispiel 
gerade den Compiler - kann man dieses Vorhaben als Projekt 
bezeichnen. Zu diesem Projekt gehören diverse Moduln. Um bei unserem 
Beispiel des Compilers zu bleiben, gibt es sicher ein Modul das den Text 
einliest und die Syntax prüft (Scanner), ein Modul das die Semantik 
überprüft (Parser) und ein drittes Modul erzeugt schliesslich den Code 
(Generator). All diese Dateien gehören logisch zusammen und werden 
demzufolge in einem Verzeichnis zusammengefasst. Somit kann man 
folgendes festhalten: 

"Ein Projekt entspricht einem Verzeichnis" 
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Details zum Projekt 


Bis jetzt ist noch nichts wesentlich Spektakuläres an unserem Konzept 
zu erkennen. Es liegt auf der Hand, alle zusammengehörenden Moduln 
in einem eigenen Verzeichnis abzulegen! Erinnern wir uns aber an den 
ersten Abschnitt der Einleitung. Dort haben wir gesehen, dass es viele 
verschiedene Typen von Dateien gibt. Sie unterscheiden sich durch 
spezifische Endungen: 

.def Textdatei eines Definitions-Moduls 

.mod Textdatei eines Implementations- oder Programm- 

Moduls 

.sym übersetztes Definitions-Modul 

.obj übersetztes Implementations- oder Programm-Modul 

.ref Datei, die die Debuggerinformation enthält 

File des gelinkten Programms hat keine Endung 


Schaut man sich ein Projektverzeichnis mit dem "dir"-Befehl des 
Betriebssystems an, stehen aber nicht alle Dateien gleichen Typs 
beieinander, sondern man findet alle Dateien, die zu einem Modul 
gehören, alphabetisch aufgelistet. In unserem Beispiel von vorhin sieht 
das Projektverzeichnis folgendermassen aus: 


1> dir 
Compiler 
Generator.def 
Generator.obj 
Generator.sym 
Parser.mod 
Parser.ref 
Scanner.def 
Scanner.obj 
Scanner.sym 


Compiler.mod 
Generator.mod 
Generator.ref 
Parser.def 
Parser.obj 
Parser.sym 
Scanner.mod 
Scanner.ref 


Arbeitsumgebung 


3-7 



Die Liste ist zwar alphabetisch, aber nur schon diese drei Moduln 
ergeben eine recht lange Liste. Manchmal wäre es vielleicht besser, 
wenn man alle Dateien des gleichen Typs beieinander hätte. Um dies zu 
erreichen, kann man das Projektverzeichnis mit Unterverzeichnissen 
weiter unterteilen. Unser Projektkonzept erkennt Unterverzeichnisse 
mit folgenden Namen: 


bin Dieses Unterverzeichnis enthält alle fertig gelinkten 

Amiga Programme. 

obj Wie der Name schon sagt enthält dieses Unterver¬ 

zeichnis alle ”.obj"-Dateien. 

ref Hier drin finden sich alle ".ref'-Files. 

sym Hier sind alle ".sym"-Files zu finden. 

txt Und hier sind alle Programmtexte abgespeichert, d.h. 

die ".def"- und ".mod"-Dateien 


Wichtig ist, dass es NICHT obligatorisch ist, mit diesen Unterver¬ 
zeichnissen zu arbeiten. Man kann sie einrichten, wenn man will; man 
kann aber auch alle oder einen Teil davon weglassen. Wenn man aber 
ein Unterverzeichnis eingerichtet hat, muss man es benutzen. Das 
heisst, dass bei eingerichtetem "txt" Unterverzeichnis alle 
Programmtexte in diesem abgelegt werden müssen. Mit anderen Wor¬ 
ten: Existiert ein "txt" Unterverzeichnis, so werden Texte die direkt im 
Projektverzeichnis abgelegt sind, von allen M2Amiga Programmen 
ignoriert. 

Unser obiges Beispielprojekt könnte also folgendermassen aussehen: 
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aktuelles Verzeichnis 



Beispiel eines Projekts 


Zur Anmerkung: Das "bin" Unterverzeichnis wurde ausgelassen, so dass 
sich das fertig gelinkte Programm "Compiler" direkt im Pro¬ 
jektverzeichnis befindet. 


Zusammenspiel verschiedener Projekte: die Suchstrategie 


Es können aber auch Dateien aus anderen Projekten importiert werden. 
Dafür gibt es die Pfaddateien. Pfaddateien sind normale Textdateien, 
die auf jeder Zeile einen Projektnamen angeben. Es gibt eine lokale 
Pfaddatei, sowie eine globale Pfaddatei. Der Name einer Pfaddatei ist 
"path". Die lokale Pfaddatei ist im Projektverzeichnis, die globale 
befindet sich im "M2:"-Verzeichnis. Die Suche geht folgendermassen 
vor: Zuerst wird das aktuelle Projekt, danach die Projekte der lokalen 
Pfaddatei und schliesslich die Projekte der globalen Pfaddatei 
durchsucht. 


Zu beachten ist, dass in den Pfaddateien nicht etwa Unterverzeichnisse 
aufgezählt werden, sondern Projekte. In diesen Projekten gelten 
dieselben Suchregeln bezüglich der Unterverzeichnisse (txt, sym, obj, 
ref, bin) wie im aktuellen Projekt. 


Meistens genügt die globale Pfaddatei, und man muss keine lokalen 
Pfaddateien definieren. Ein Beispiel einer globalen Pfaddatei: 


Arbeitsumgebung 


3-9 





M2:Modules 

Arbeits-Disk:Library 
Arbeits-Disk:AnderesProjekt 


Wird eine benötigte Symboldatei im aktuellen Projekt nicht gefunden, 
wird zuerst im Verzeichnis "M2:Interfaces" nachgeschaut. Ist dort ein 
Unterverzeichnis "sym" vorhanden, wird in diesem gesucht, sonst im 
Verzeichnis selbst. Wurde die Datei nicht gefunden, geht die Suche bei 
den beiden folgenden Verzeichnissen analog weiter. Erst wenn sie auch 
dort nicht vorhanden ist, wird eine Fehlermeldung ausgegeben. 


m2project 


Das Programm "m2project" legt ein Projekt samt den gewünschten 
Unterverzeichnissen an. Um einzelne Unterverzeichnisse nicht erzeugen 
zu lassen, existieren die Optionen -o, -r, -b, -s, -t und -i: 

-o 

Erzeuge kein Unterverzeichnis "obj" 

-r 

Erzeuge kein Unterverzeichnis "ref 

-b 

Erzeuge kein Unterverzeichnis "bin" 

-s 

Erzeuge kein Unterverzeichnis "sym" 

-t 

Erzeuge kein Unterverzeichnis "txt" 

-i 

Erzeuge keine Ikonen für die Verzeichnisse 


Der Aufruf "m2project -o icePack" erzeugt das Verzeichnis 
"IcePack" mit den Unterverzeichnissen "sym", "ref", "txt" und "bin"; alle 
Unterverzeichnisse werden mit einer Ikone versehen.. 


Ist bereits ein Verzeichnis mit dem angegebenen Namen vorhanden, 
wird kein neuesProjekt erzeugt. 
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Aufruf 


m2emacs [-d Verzeichnis][-bi] [Dateiname] 


Charakteristik des Editors 

m2emacs ist ein bildschirmorientierter Zeileneditor. Ein damit 
bearbeiteter Text besteht aus einer Anzahl von verschiedenen Textzeilen 
mit einer Länge bis zu 255 Zeichen. Jedes Zeichen kann sich über den 
gesamten 8-Bit Bereich erstrecken, beinhaltet insbesondere alle 
nationalen Sonderzeichen, wie in [DOS] vermerkt. 

Auf jeder Zeile sind maximal 80 Zeichen sichtbar. Beinhaltet die Zeile 
mehr als 80 Zeichen, erscheint auf der 80. Position ein "$"-Zeichen. Die 
Anzahl der angezeigten Zeilen ist abhängig von der Zeilenzahl des 
Bildschirms (PAL/NTSC). 


m2emacs bietet die Möglichkeit, mehrere Dateien gleichzeitig zu 
bearbeiten. Die Anzahl der Dateien ist nur durch die Grösse des 
Hauptspeichers begrenzt, denn m2emacs bearbeitet alle Dateien im 
Hauptspeicher. 


m2emacs unterstützt auch die Maus als Eingabegerät, und zwar zum 
Setzen des Cursors wie auch zur Menuauswahl. Weitere Möglichkeiten 
finden sich im Kapitel "Die Maus als Eingabegerät". 

Spezielle Terminologie 

Textspeicher bezeichnet einen Speicherbereich, der von 

m2emacs verwaltet wird. Es existiert immer 
mindestens ein Textspeicher, der null oder mehr 
Zeichen enthält. 


Editor 
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Cursor 


Marke 


Bereich 


Fenster 


Textname 


bezeichnet die Stelle im Text, an der Änderungen 
stattfinden. Die Position des Cursors kann beliebig im 
Text verändert werden. Der Cursor ist mit einem 
roten (oder der Preferences-Einstellung Farbe 3 
entsprechenden) Rechteck gekennzeichnet. 


ist wie der Cursor eine ausgezeichnete Stelle im 
Textspeicher. Sie kann überall und jederzeit gesetzt 
werden. Die Marke ist nicht sichtbar, aber deren 
Position wird vom m2emacs vermerkt. 


bezeichnet den Textteil zwischen Cursor und Marke. 
Einige Operationen wirken direkt auf den Bereich. 


in m2emacs entsprechen nicht den Fenstern, wie sie 
von Intuition verwaltet werden. Stattdessen erlaubt 
m2emacs eine horizontale Unterteilung des 
Bildschirms, wobei jedes dieser Fenster das 
Bearbeiten einer einzelnen Datei ermöglicht. 


ist einer von zwei Namen, die einem Textspeicher 
zugeordnet sind. Der erste dieser zwei ist der 
Textname, mit dem ein Textspeicher identifiziert wird 
und angewählt werden kann. Der zweite Name 
bezieht sich auf die Datei, die gerade im Textspeicher 
bearbeitet wird. 

Der erste Textspeicher hat als Textnamen den 
Dateinamen ohne Pfad, beziehungsweise "main" 
(engl. Haupt-) falls keine Datei angegeben wurde. 
Der zugehörige Dateiname entspricht entweder dem 
Namen der Datei, die beim Aufruf von m2emacs als 
Parameter angegeben wurde, oder kann nachträglich 
auch noch durch einige Befehle verändert werden. 
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Statuszeile ist die unterste Zeile des Bildschirms. Alle 
Editorbefehle, die zusätzliche Parameter benötigen, 
fragen diese auf der Statuszeile ab. Bei Eingaben auf 
der Statuszeile kann übrigens nicht nur das letzte 
Zeichen mit <BACKSPACE>, sondern die ganze 
Eingabezeile mit <CTRL-X> gelöscht werden. Wurde 
der Befehl irrtümlich aufgerufen, kann er mit <CTRL- 
G> ganz abgebrochen werden. 

Die Statuszeile dient ebenso der Anzeige von Fehler¬ 
meldungen oder sonstigen Informationen. 

Grundlegendes 

m2emacs kennt zwei verschiedene Operations-Modi, den 
Normalmodus und den Befehlsmodus. m2emacs befindet sich immer 
dann im Normalmodus, wenn kein Befehl ausgeführt wird. Nachdem 
ein Befehl abgeschlossen ist, kehrt m2emacs wieder in den 
Normalmodus zurück. 


Der Normalmodus zeichnet sich folgendennassen aus: 


Zeichen, die in den Text eingefügt werden sollen, brauchen nur 
getippt zu werden. Der Normalmodus ist immer auch 
"Einfügemodus". Eingefügt werden können alle Zeichen, also 
auch das "Neue-Zeilen"-Zeichen (<RETURN>), das einen 
Zeilenumbruch bewirkt. 

Das Zeichen unter dem Cursor kann mit der <DEL>-Taste, 
dasjenige Zeichen unmittelbar vor dem Cursor mit der 
<BACKSPACE>-Taste gelöscht werden. Alle nachfolgenden 
Zeichen rücken entsprechend nach. 


Der Cursor kann mit den Pfeiltasten buchstaben¬ 
beziehungsweise zeilenweise bewegt werden. Der Cursor kann 
weder hinter das Zeilenende bewegt werden, noch ist es 
möglich, den Cursor über die letzte Zeile des Textes hinaus zu 
positionieren. 
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Der Cursor kann auch schnell und einfach über weitere 
Strecken verschoben werden. So bewirkt das Drücken der 
<ALT>-Taste zusätzlich zu einer Pfeiltaste das Verschieben an 
den Anfang oder Ende eines Wortes (<ALT-«-> und <ALT- 
—»), beziehungsweise das Blättern um eine Seite vor- oder 
rückwärts (<ALT-1> und <ALT-t>). Die <SHIFT>-Taste 
vergrössert den Schritt auf den Anfang oder das Ende der Zeile 
(<SHIFT-<—> und <SHIFT—>>), beziehungsweise an den 
Anfang oder das Ende des Textspeichers (<SHIFT-t> und 
<SHIFT4>). 

Als letzte Möglichkeit der Cursor-Positionierung kann auch die 
Maus benutzt werden. Dazu muss der Mauszeiger an die 
gewünschte Stelle gebracht, und der linke Mausknopf gedrückt 
werden. 

Verschiedene weitere Funktionen können entweder durch 
Tastenkombinationen (Kontroll und Escape-Sequenzen) oder 
durch Menuauswahl ausgeführt werden. Diese Funktionen 
sind im folgenden ausführlich beschrieben. 

Der Befehlsmodus wird durch viele dieser weiteren Funktionen 
gestartet. Im Befehlsmodus springt der Cursor auf die unterste Zeile des 
Bildschirms und verlangt die Eingabe weiterer Informationen. Die Art 
der benötigten Information ist für jede Funktion erklärt. Ist der Befehl 
beendet, wird wieder in den Normalmodus zurückgekehrt. 

Die unterste Zeile jedes Fensters ist die Fensterbegrenzungszeile. Auch 
auf der Begrenzungszeile sind Statusinformationen zu finden, 
allerdings haben diese nur für den in diesem Fenster sichtbaren 
Textspeicher Bedeutung. Die Begrenzungszeile besteht aus einer Zeile 
von Minussymbolen durchbrochen vom Programmnamen 

"m2emacs". Daneben ist der Textname zu finden und schliesslich ist der 
dem Textspeicher zugeordnete Dateiname vermerkt. In der zweiten 
Spalte dieser Zeile wird auch markiert, ob der Textspeicher verändert 
wurde. Ein Stern ("*") bedeutet einen veränderten Textspeicher, das 
ursprüngliche Minuszeichen heisst, dass Datei und Textspeicher (noch) 
identisch sind. 
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Die Maus als Eingabegerät 

Setze Cursor (linker Mausknopf) 


kann statt mit den Pfeiltasten auch schneller mit der Maus ausgeführt 
werden. Um an eine gewünschte Textstelle zu gelangen, kann man mit 
der Maus den Zeiger an diese Stelle bewegen, und dort den linken 
Mausknopf drücken. Dies hat den zusätzlichen Effekt, dass das 
entsprechende Fenster aktiv wird. 

Setze Marke (rechter Mausknopf) 


Die Marke kann ebenfalls mit der Maus gesetzt werden. Ist der 
Mauszeiger an der gewünschten Markenposition, muss der rechte 
Mausknopf gedrückt werden. Gleichzeitig wird mit diesem Befehl auch 
der Cursor an diese Stelle gesetzt. 


Blättern (linker / rechter Mausknopf) 


Drückt man den linken, beziehungsweise den rechten Mausknopf in der 
Fensterbegrenzungszeile, blättert m2emacs den Text eine Seite 
vorwärts oder zurück. 


Ausschneiden (linker / rechter Mausknopf) 


eines Bereichs kann ähnlich einfach auch mit der Maus alleine 
ausgeführt werden. Die genaue Vorgehensweise schaue man bitte im 
nachfolgenden Abschnitt "Ausschneiden" nach. 

Lesen und Abspeichern von Dateien 

Öffne Datei (Projekt-Menu) / <CTRL-XxCTRL-R> / <F1> 

liest den Inhalt einer Datei in den aktuellen Textspeicher. Ist dieser leer, 
springt der Cursor auf die Statuszeile und verlangt einen Dateinamen, 
der auch einen Pfad beinhalten darf. Wurde der Textspeicher verändert 
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- gekennzeichnet durch den Stern auf der Fensterbegrenzungszeile - 
versichert sich m2emacs durch die Frage 
"Änderungen vergessen [ j/n] ?" ob der ungesicherte Textspeicher 
wirklich überschrieben werden soll. Die Antwort" j" (abzuschliessen mit 
<RETURN>) überschreibt den Textspeicher, "n" ignoriert den Aufruf 
des Öffnen-Befehls. Ist der Textspeicher nicht leer aber unverändert, so 
gilt der Textspeicher als gesichert und wird durch den Inhalt der neu 
einzulesenden Datei überschrieben. 


Das Löschen eines alten Textspeichers kann übrigens bis zu einigen 
Sekunden dauern. 


Soll keine neue Datei eingelesen werden, genügt es, ohne Angabe eines 
Dateinamens die Taste <RETURN> zu drücken, und m2emacs kehrt in 
den Normalmodus zurück. 

Lies Datei (Projekt-Menu) / <CTRL-XxCTRL-V> 

Dieser Befehl ruft einen neuen Textspeicher ins Leben. Dieser Befehl ist 
gleichbedeutend mit: "Ich möchte eine andere Datei bearbeiten, 
während ich diese Datei bearbeite". Dieser Befehl ist vor allem nützlich, 
um aus verschiedenen Programmen Teile auszusondern, oder um 
Definitionsmoduln zu konsultieren. 

Falls der eingegebene Dateiname nicht bereits einem Textspeicher 
zugeordnet ist und die Datei existiert, wird ein neuer Textspeicher 
kreiert und sofort auf dem Bildschirm angezeigt. Der alte Textspeicher 
ist noch zugreifbar und kann jederzeit angewählt werden. Ist die 
angegebene Datei bereits geöffnet oder gelesen, wird kein neuer 
Textspeicher kreiert, sondern nur auf den Textspeicher, der dieser Datei 
zugeordnet ist, umgeschaltet. 


Eine Liste aller Textspeicher kann angezeigt werden. Dieser Befehl ist 
im letzten Abschnitt beschrieben. 
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Sichern (Projekt-Menu) / <CTRL-XxCTRL-S> / <SHIFT-F1> 


schreibt den Inhalt des aktuellen Textspeichers auf diejenige Datei, die 
durch den dem Textspeicher zugehörigen Namen identifiziert ist. Ist 
dem Textspeicher kein Dateiname zugeordnet, kann die Datei nicht 
geschrieben werden. Der Dateiname wird durch das Öffnen oder das 
Umbenennen dem Textspeicher zugeordnet. 

Konnte die Sicherung erfolgreich abgeschlossen werden, erscheint auf 
der Statuszeile die Anzahl der geschriebenen Zeilen. 

Sichern als (Projekt-Menu) / <CTRL-XxCTRL-W> 


schreibt den Inhalt des aktuellen Textspeichers auf eine Datei mit frei 
wählbarem Namen. Dieser Dateiname wird neu dem Textspeicher 
zugeordnet. Für das erneute Abspeichern genügt somit der Sichern- 
Befehl ohne Dateiname. Der Textspeicher ist wie beim Sichern nicht 
mehr länger als geändert markiert, und der Stern auf der 
Fensterbegrenzungszeile verschwindet. 


Neuer Dateiname (Projekt-Menu) / <CTRL-XxCTRL-F> 


ändert den Dateinamen des aktuellen Textspeichers auf einen neuen 
Namen. Die Angabe eines leeren Namens ist zwar möglich, meist aber 
unsinnig. Ohne gültigen Dateinamen kann die Datei nicht abgespeichert 
werden. 


Sichern & Ende (Projekt-Menu) / <CTRL-Z> 


schreibt den Inhalt des aktuellen Textspeichers auf die zugeordnete 
Datei und verlässt m2emacs. Existieren weitere veränderte 
Textspeicher, wird gefragt, ob m2emacs wirklich verlassen werden soll. 

Ende (Projekt-Menu) / <CTRL-XxCTRL-C> 

verlässt m2emacs. Falls aber veränderte Textspeicher existieren sollten, 
fragt m2emacs zur Sicherheit, ob man den Editor wirklich verlassen 
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will. Drückt man " j" ist die getane Arbeit endgültig verloren, bricht man 
den Ende-Befehl aber mit "n" ab, befindet man sich wieder im 
Normalmodus des Editors. Hier kann dann "Sichern" aufgerufen 
werden. 


Lösche Textspeicher <CTRL-X>K 


löscht einen Textspeicher aus dem Speicher. Wenn ein Textspeicher 
nicht mehr benötigt wird, sollte er gelöscht werden, damit der von ihm 
belegte Speicherbereich wieder freigegeben werden kann. Ein 
Textspeicher kann nur gelöscht werden, wenn er nicht am Bildschirm 
sichtbar ist. Ein unveränderter Textspeicher wird dann sofort gelöscht, 
sonst muss der Benutzer das Löschen zur Sicherheit nochmals 
bestätigen. | 

Löschen und Wiedereinsetzen von Textbereichen 

Buchstabenweises Löschen funktioniert wie bereits beschrieben mit den 
Tasten <DEL> und <BACKSPACE>. Daneben existieren auch 
Möglichkeiten des wort- und zeilenweisen Löschens. Als Wort gilt dabei 
jede Zeichenkette bestehend aus alphanumerischen Zeichen von "A"-"Z", 
"a"-"z", "0"-"9" und allen Zeichen, deren Ordinalwert grösser oder 
gleich 128 ist (höchstes Bit gesetzt). Die Umlaute sind demnach den 
normalen Buchstaben gleichgesetzt. 

Lösche Wort zurück <ESCxBACKSPACE> / <ALT-BACKSPACE> 


löscht das Wort vor dem Cursor, falls sich dieser zwischen zwei Wörtern 
befindet. Ist der Cursor mitten in einem Wort, werden alle Zeichen 
dieses Worts gelöscht, die sich vor dem Cursor befinden. 

Lösche Wort <ESC>D / <ALT-DEL> 

löscht das Wort nach dem Cursor, falls sich dieser zwischen zwei 
Wörtern befindet. Ist der Cursor mitten in einem Wort, wird das Zeichen 
unmittelbar unter dem Cursor, sowie alle nachfolgenden Zeichen des 
Worts gelöscht. 
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Lösche Zeile <CTRL-X><CTRL-D> / <CTRL-XxDEL> / <F10> 


löscht die Zeile, auf der sich der Cursor gerade befindet. Diese Zeile wird 
in den sogenannten Zwischenspeicher übertragen und kann dort solange 
abgerufen werden, wie er nicht durch ein erneutes Löschen 
überschrieben wird. Für das Zurückholen des Zwischenspeichers schaue 
man unter "Einsetzen" nach. 

Lösche bis Ende Zeüe <CTRL-K> / <SHIFT-DEL> 

löscht alle Zeichen dieser Zeile, die sich hinter dem Cursor befinden, ein¬ 
schliesslich des unter dem Cursor liegenden Zeichens. Ist die Zeile leer, 
d.h. befindet sich nur das Zeilenvorschubzeichen (line feed) auf ihr, wird 
dieses gelöscht. Der gelöschte Text wird in den Zwischenspeicher 
übertragen. 

Lösche von Beginn der Zeile <SHIFT-BACKSPACE> 

löscht alle Zeichen dieser Zeile, die sich vor dem Cursor befinden. Der 
gelöschte Text wird in den Zwischenspeicher übertragen. 

Füge Zeilen zusammen <CTRL-XxCTRL-J> 

fügt die unterliegende Zeile an die aktuelle Zeile an, d.h entfernt das 
Zeilenvorschubzeichen am Ende der Zeile. Die Cursorposition bleibt 
erhalten. 

Setze Marke (Mausknopf rechts) <CTRL-@> / <ESC>. 

setzt die Marke an der momentanen Cursorposition. Wird die Marke 
mit dem rechten Mausknopf gesetzt, muss der Mauszeiger an der 
gewünschten Stelle des Texts sein. Der Cursor springt darauf an die 
Stelle der Marke. In jedem Fall erscheint in der Statuszeile die Meldung 

"[Marke gesetzt]". 
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Ausschneiden (Edit Menu) / <CTRL-W> / (Mails) 


löscht den Bereich, d.h. den Text, der sich zwischen Marke 
(einschliesslich) und Cursorposition befindet, und überträgt den 
gelöschten Text in den Zwischenspeicher. 

Dieser Befehl kann auch nur mit der Maus ausgeführt werden. Dazu 
drücke man den linken Mausknopf an der gewünschten Cursorposition, 
halte ihn gedrückt und drücke gleichzeitig den rechten Mausknopf, den 
man sofort wieder loslässt. Sobald auch der linke Knopf wieder 
losgelassen wird, ist der Bereich gelöscht und in den Zwischenspeicher 
kopiert. 

Kopieren (Edit Menu) / <ESC>W 

überträgt den Bereich in den Zwischenspeicher, lässt den Textspeicher 
aber unverändert. Es ist eine Abkürzung für das Ausschneiden und 
sofortige Wiedereinsetzen eines Bereichs. 

Einsetzen (Edit Menu) / <CTRL-Y> 


setzt den im Zwischenspeicher enthaltenen Text an der aktuellen 
Cursorposition ein. Der Zwischenspeicher bleibt bestehen und wird nicht 
verändert. Der Cursor steht neu unmittelbar hinter dem letzten Zeichen 
des eingesetzten Blocks; die Position der Marke bleibt indes 
unverändert. 

Einsetzen auf Datei (Edit Menu) / <ESC>Y 


schreibt den im Zwischenspeicher enthaltenen Text auf eine 
anzugebende Datei. Ist bereits eine Datei gleichen Namens vorhanden, 
wird diese ohne Warnung überschrieben. 

Löschen (Edit Menu) 


löscht den Bereich, ohne diesen in den Zwischenspeicher zu übertragen. 
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Suchen und Ersetzen eines Textes 


Suchen (Befehle Menu) / <CTRL-S> / <F3> 

sucht den angegebenen Text im Textspeicher. Ab der Cursorposition 
wird vorwärts gesucht, also in Richtung Textspeicherende. Ist der Text 
im Textspeicher vorhanden, springt der Cursor unmittelbar hinter den 
gefundenen Text, anderenfalls erscheint die Meldung "Nicht 
gefunden" (wie immer auf der Statuszeile). 

Suchen rückwärts <CTRL-R> 

sucht den angegebenen Text im Textspeicher. Die Suchrichtung ist 
rückwärts, d.h. von der Cursorposition an in Richtung 
Textspeicheranfang. Ist der Text im Textspeicher vorhanden, springt 
der Cursor auf das erste Zeichen des gefundenen Textes. 


Ersetzen (Befehle Menu) / <ESC>% / <SHIFT-F3> 

verlangt zunächst den Suchtext, und danach die Angabe, durch welchen 
Text dieser zu ersetzen ist. m2emacs sucht den angegebenen Text im 
Textspeicher, wiederum beginnend mit der Cursorposition. Wird der 
Text gefunden, springt der Cursor hinter den gefundenen Text, und es 
erscheint die Meldung "ersetzen?". Die Eingabe "j” oder " " ersetzt 
den Text und sucht das nächste Vorkommen des Ursprungtextes, "n" 
und <DEL> fahren ohne Ersetzung mit der Suche fort. Die Eingabe "a" 
lässt alle weiteren Vorkommen des Ursprungtextes ohne Bestätigung 
ersetzen. Sollen keine weiteren Ersetzungen mehr vorgenommen 
werden, kann mit <CTRL-G> abgebrochen werden. 

Ändern eines Textbereichs 

Mache Kleinbuchstaben <CTRL-XxCTRL-L> 

ersetzt alle grossen Buchstaben des Bereichs (einschliesslich der 
Umlaute) durch den entsprechenden Kleinbuchstaben. Ziffern, 
Kleinbuchstaben und Sonderzeichen bleiben unverändert. 
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Mache Grossbuchstaben <CTRL-XxCTRL-U> 


ersetzt alle kleinen Buchstaben des Bereichs (einschliesslich der 
Umlaute) durch den entsprechenden Grossbuchstaben. Ziffern, 
Grossbuchstaben und Sonderzeichen bleiben unverändert. Dieser Befehl 
ist nicht die Rücknahme des "Mache Kleinbuchstaben"-Befehls! Beide 
sind mit grösster Sorgfalt anzuwenden, da sie nur mühsam von Hand 
rückgängig gemacht werden können. 


Mache Wort mit Kleinbuchstaben <ESC>L 


ersetzt die Buchstaben des Wortes durch entsprechende Kleinbuchstaben 
und rückt den Cursor an das Ende des Worts. Gilt nur für den Rest des 
Worts, falls sich der Cursor mitten in einem Wort befindet. 

Mache Wort mit Grossbuchstaben <ESC>U 


ersetzt die Buchstaben des Wortes durch entsprechende 
Grossbuchstaben. Ansonsten gleichbedeutend mit dem vorherigen 
Befehl. 


Mache Wort gross <ESC>C 


ersetzt den Buchstaben unter dem Cursor durch den entsprechenden 
Grossbuchstaben und der Rest des Wortes wird in Kleinbuchstaben 
verwandelt. Danach befindet sich der Cursor hinter dem Wort. Stand 
der Cursor vor dem Aufruf nicht in einem Wort, wird die Operation auf 
das nachfolgende Wort ausgeführt. 


Vertausche die letzten beiden Buchstaben <CTRL-T> 


vertauscht den Buchstaben, der unmittelbar unter dem Cursor steht, mit 
dem unmittelbar davorstehenden. Dieser Befehl ist äusserst nützlich für 
den wohl häufigsten Fall von Tippfehler (Wer schreibt schon fehlerfrie?). 
Dieser Befehl funktioniert nicht am Zeilenende sowie am Zeilenbeginn, 
das Zeüenvorschubzeichen kann nicht vertauscht werden. 
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Schalterstellungen 


Schalterstellungen beeinflussen die Funktionsweise einiger Befehle. 
Schalter können nicht explizit an- oder abgestellt, sondern nur 
umgestellt werden. Die gegenwärtige Schalterstellung ist im Menu 
sichtbar. Ein gesetzter, aktivierter Schalter wird durch ein spezielles 
Symbol ("V"), Checkmark genannt, vor dem jeweiligen Menueintrag 
angezeigt. Das Verändern einer Schalterstellung hat keinen Einfluss auf 
einen bereits bestehenden Textspeicherinhalt. 

Automatisches Einrücken (Optionen-Menu) / <CTRL-X>I 


Dieser Schalter beeinflusst das Verhalten des Editors, wenn ein 
Zeilenumbruch eingefügt wird. Ist der Schalter gesetzt, beginnt die neue 
Zeile mit gleich vielen Leer- und Tabulatorzeichen, wie die über ihr 
liegende Zeile. So fällt ein grosser Teil des (sich auszahlenden) 
Einrückaufwands weg. Ist der Schalter nicht gesetzt, beginnt jede neue 
Zeile in der ersten Spalte. Der Schalter wird beim Aufstarten des 
m2emacs gesetzt. 


Gross/Klein (Optionen-Menu) / <CTRL-X>C 


Dieser Schalter ist nur bei Suchvorgängen oder Ersetzungen von 
Bedeutung. Ist dieser Schalter gesetzt, wird zwischen Gross- und 
Kleinbuchstaben unterschieden. Diese Unterscheidung gilt auch für alle 
Umlaute. Dieser Unterscheidungsschalter ist beim Programmstart 
gesetzt. 

Erzeuge Ikone (Optionen-Menu) / <CTRL-X>W 

Dieser Schalter gibt an, ob beim Sichern einer Datei auch eine Ikone 
erzeugt werden soll oder nicht. Der gesetzte Schalter bewirkt ein 
Erzeugen einer Ikone allerdings nur dann, wenn nicht schon eine Ikone 
existiert. Benutzereigene Ikonen werden so nicht überschrieben. Dieser 
Schalter ist gesetzt, falls m2emacs von der Workbench aus gestartet 
wird. 
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Behalte Backup (Optionen Menu) 


Ist dieser Schalter gesetzt, legt m2emacs beim Zurück- und 
Überschreiben einer Datei eine Sicherheitskopie an. Diese Sicher¬ 
heitskopie hat den Namen der überschriebenen Datei, erweitert um den 
Buchstaben "O". Stolze Besitzer einer Harddisk können diesen Schalter 
setzen, um auch noch die (zuweilen wertvolle) zweitletzte Version 
greifbar zu haben. Für Diskettenbenutzer ist der Platzbedarf für 
Backups meist nicht vorhanden, weshalb den Schalter ausschalten 
sollten. 

Bildschirminhalt auswählen und Fensterbehandlung 
Erneuere Bildschirminhalt <CTRL-L> 
schreibt die ganze Seite neu. 

Verschiebe Text nach oben <CTRL-XxCTRL-N> / <F9> 

schiebt den Text im Fenster um eine Zeile nach oben, d.h. die oberste 
Zeile verschwindet und eine neue Zeile wird sichtbar. Ist der Cursor vor 
der Bewegung auf der obersten Bildschirmzeile, wird er nachher wieder 
frisch zentriert. 

Verschiebe Text nach unten <CTRL-XxCTRL-P> / <SHIFT-F9> 
schiebt den Text im Fenster um eine Zeile nach unten. 


Setze aktuelle Zeile an Fensteranfang <ESC>H / <ESC>! 


verschiebt den Text, so dass sich die aktuelle Zeile am oberen 
Fensterrand befindet. Dabei bleibt die Cursorposition innerhalb der 
Zeile unverändert. 
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Teile Fenster (Befehle-Menu) / <CTRL-X>2 / <F7> 


teilt das aktuelle Fenster in zwei. Beide Fenster haben den gleichen 
Textspeicherinhalt, können aber unabhängig voneinander einen neuen 
Textspeicher einiesen. Die Anzahl der Fenster ist nur durch den 
Bildschirm begrenzt. 

Schliesse Fenster (Befehle-Menu) / <CTRL-X>0 / <SHIFT-F7> 

schliesst das aktuelle Fenster und lässt das obige Fenster - im Falle des 
obersten das untere - entsprechend grösser werden. Das Schliessen 
eines Fensters hat keine direkte Einwirkung auf den vormals 
angezeigten Textspeicher. Dieser ist immer noch vorhanden und auch 
abrufbar. 


Nur ein Fenster (Befehle-Menu) / <CTRL-X>1 


lässt das aktuelle Fenster über den ganzen Bildschirm gehen. 

Vergrössere Fenster <CTRL-X>Z / <SHIFT-F8> 

vergrössert das aktuelle Fenster um eine Zeile, d.h. die 
Begrenzungszeile des Fensters verschiebt sich um eine Zeile nach unten. 
Wird das unterste Fenster vergrössert, wandert die Begrenzungszeile 
des darüberliegenden Fensters um eine Zeile nach oben. 


Verkleinere Fenster <CTRL-XxCTRL-Z> / <F8> 


verkleinert das aktuelle Fenster um eine Zeile. Ein Fenster kann bis auf 
eine Zeile reduziert werden. 

Makrobefehle 

Makros erlauben, immer wiederkehrende Tastaturfolgen auf einen 
Tastendruck abrufbar zu machen. Es ist immer nur eine Makrodefinition 
möglich; die Definition kann jedoch beliebig oft erneuert werden. 
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Makros können nicht verschachtelt werden. Die maximale Anzahl von 
abspeicherbaren Tastendrücken ist 256. 


Beginne Makro (Befehle-Menu) <CTRL-X>( / <F4> 


zeigt an, dass eine neue Makrodefinition eingegeben wird. Nebst der 
Meldung auf der Statuszeile ändert auch der Bildschirmtitel zu 
"m2emacs Makro Definition". Nim kann eine beliebige Tastaturfolge 
eingeben werden ("Beginne Makro" und "Führe Makro aus" sind tabu). 
Alle Aktionen werden sofort ausgeführt und gleichzeitig auch intern 
vermerkt. Ist die gewünschte Ablauffolge beendet, muss der Befehl 
"Beende Makro" ausgeführt werden. 

Beende Makro (Befehle-Menu) <CTRL-X>) / <SHIFT-F4> 

schliesst die Makrodefinition ab. Die eingegebene Tastenfolge ist nun 
mit einem einzigen Tastendruck ausführbar. 

Makro ausführen (Befehle-Menu) <CTRL-X>E / <F5> 

führt die vorher definierte Tastenfolge aus. Vorsicht ist allerdings bei 
allen Befehlen geboten, die sich je nach Charakteristik der Zeile 
verschieden verhalten, beispielsweise der Befehl "Lösche bis Ende Zeile" 
bei leeren Zeilen. Versuchen Sie, solche Befehle in Makrodefinitionen zu 
vermeiden. 

Wie leistungsfähig die Makros sind, wird im nachfolgen Abschnitt 
"Beispiel" gezeigt. 

Modula-2 Befehle 

Beim Öffnen einer Datei (also möglicherweise beim Aufstarten des 
m2emacs) wird ebenfalls nach einer Fehlerdatei gesucht. Eine 
Fehlerdatei eines Modula-2 Programms wird durch den Compiler 
erzeugt. Der Name der Fehlerdatei ergibt sich aus dem Dateinamen, 
erweitert um den Buchstaben "E". Wird eine solche Datei gefunden, liest 
m2emacs ebenfalls die Datei "Modula-2 Fehlermeldungen" im "s:"- 
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Verzeichnis ein. Da der Compiler nur Fehlernummem ablegt, benötigt 
man diese Datei, um die Fehlernummern in eine Klartextmeldung zu 
übersetzen. 


Nächster Fehler (Modula-2 Menu) / <F2> 


zeigt von der Cursorposition an das nächste Vorkommen eines Fehlers. 
Befindet sich zwischen der Cursorposition und dem Textspeicherende 
kein Fehler mehr, wird die Fehlersuche beim Textspeicheranfang 
fortgesetzt. Nach dem Anzeigen des Fehlers wird dieser aus der 
internen Fehlerliste gestrichen, d.h. jeder Fehler wird nur einmal 
angezeigt. Nachdem alle Fehler "gestrichen" sind, erscheint die 
Meldung "Kein (weiterer) Fehler gefunden". 


Lies Fehlerliste (Modula-2 Menu) / <SHIFT-F2> 


versucht die Fehlerdatei zum aktuellen Textspeicher erneut zu lesen. 
Dies ist nützlich, um schon "gestrichene" Fehler nochmals anzeigen zu 
können. Andererseits kann so auch eine neu erzeugte Fehlerdatei 
eingelesen werden, die der Compiler im Hintergrund frisch erzeugt 
haben könnte. 

Verschiedene Befehle 

Zeige Liste aller Textspeicher <CTRL-X><CTRL-B> 


zeigt in einem eigenem Fenster eine Liste aller Textspeicher. Der Befehl 
gibt Auskunft über die Textspeichergrösse, Textnamen und den 
zugehörigen Dateinamen. In der ersten Spalte wird mit einem Stern (*) 
angezeigt, ob der Textspeicher verändert wurde. 


Vertausche Cursor mit Marke <CTRL-XxCTRL-X> 


setzt den Cursor an die Stelle der Marke bei gleichzeitigem Verschieben 
der Marke an die alte Cursorposition. Die Marke kann so als 
Merkpunkt eingesetzt werden, zu dem man jederzeit wieder schnell 
zurückkehren kann. 
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Abbruch einer Eingabe <CTRL-G> / <SHIFT-F5> 

bricht die aktuelle Eingabe ab. Wurde irrtümlich ein Befehl aufgerufen, 
den man lieber nicht aufgerufen hätte, so kann die Eingabe durch 
<CTRL-G> abgebrochen werden, und m2emacs kehrt wieder in den 
Normalmodus zurück, ohne den unerwünschten Befehl auszuführen. 

Info <CTRL-X>= / <SHIFT-F6> 


zeigt einige Informationen zum aktuellen Text Speicher sowie zum 
Bildschirminhalt an. Die einzelnen Positionen haben dabei folgende 
Bedeutung: 

Linien: 

Die Anzahl der Zeilen des Textspeichers. 

Linie: 

Die Zeilennummer, auf der sich der Cursor befindet. 
Für diesen Wert güt: 0 < Linie < Linien. 

Zeile: 

Die Bildschirmzeile, auf der sich der Cursor befindet. 
Die oberste Zeile ist die Zeüe 0. 

Spalte: 

Die Bildschirmspalte, auf der sich der Cursor befindet. 
Die Spaltenzählung beginnt ebenfalls mit 0. 

CH: 

Der Ordinalwert des unter dem Cursor liegenden 
Zeichen in Hexadezimaldarstellung. 

- 

Die Nummer des Zeichens, auf dem der Cursor steht. 
Das erste Zeichen des Textspeichers hat die Nummer 


0 . 


Die 1 letzte Angabe zeigt die relative Cursorposition im Verhältnis zum 
ganzen Textspeicher, dessen Zeichenzahl auch angezeigt wird. 
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Setze Zähler <CTRL-U> / <HELP> 


setzt einen Zähler für den nächsten Befehl. Auf der Statuszeile erscheint 
der Text "Zähler: 4". Wird "Setze Zähler" erneut auf gerufen, wird der 
aktuelle Zählerwert mit vier multipliziert. Stattdessen kann auch eine 
Zahl eingegeben werden. 

Einige Beispiele (Nach dem Drücken von <CTRL-U>): 

Zähler: 12 ("1", "2" gedrückt) 

Zähler: 12 ("3", <CTRL-U> gedrückt) 

m2emacs nimmt diesen Zähler für den nächsten Tastendruck. Um 12 
Zeilen einzufügen, setzen Sie den Zähler auf 12 und drücken Sie 
<RETURN>. Um 78 Sterne in den Text einzufügen, können Sie, anstatt 
sie alle einzeln zu tippen, einfach den Zähler auf 78 setzen und die 
Taste drücken. 

Übernimm Zeichen unverändert <CTRL-Q> 

ermöglicht die Eingabe solcher Zeichen, die sonst nicht in den Text 
eingefügt werden können. Darunter fallen beispielsweise die 
Kontrollzeichen. Das Kommando erlaubt die Eingabe eines 
Sonderzeichens. 

Betriebssystemumgebung 

Wechsle Verzeichnis <CTRL-X>D(Befehle-Menu) / (Laufzeitoption -d) 

setzt das Verzeichnis so, als wäre m2emacs in diesem Verzeichnis 
aufgerufen worden. Das Verzeichnis ist jedoch nur während der 
Laufzeit (und natürlich nur bis zum nächsten Wechsel) gültig und hat 
keinen Einfluss auf die Umgebung, von der m2emacs aufgerufen wurde. 
Dieser Befehl erleichtert die Eingabe von Dateinamen, wenn man viele 
Dateien aus demselben Verzeichnis bearbeiten möchte. 
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CLI-Befehl <CTRL-X>! 


führt einen CLI-Befehl aus. So kann beispielsweise das Verzeichnis einer 
Diskette angeschaut werden, ohne m2emacs zu verlassen. Nebst dem 
gewünschten Kommando muss zusätzlich der "run"-Befehl entlang dem 
vorgegeben Pfad vorhanden sein. 

Neues CLI (Befehle-Menu) / <CTRL-C> 

startet ein neues CLI auf. Für die Rückkehr in m2emacs muss dieses CLI 
ganz normal mit "endcli" verlassen werden. Auch dieser Befehl 
benötigt den "run"-Befehl. 

Optionen beim Aufruf 

m2emacs kennt zwei Optionen, die beim Starten aufgerufen werden 
können. 

-d Verzeichnis wechselt das Verzeichnis, auf dem m2emacs 

arbeitet. Diese Option ist gleichbedeutend mit einem 
Aufruf von "Wechsle Verzeichnis" unmittelbar nach 
dem Aufstarten des Editors. Wird beim Starten auch 
ein Dateiname angegeben, wird die Datei sowie die 
zugehörige Fehlerdatei aus diesem Verzeichnis 
geladen. 


-b ist diese Option gesetzt, wird die alte Datei nicht als 

Sicherungskopie behalten. 

-i setzt den Schalter für die Ikonenerzeugung so, dass 

beim Abspeichern keine Ikone erzeugt wird. Dieser 
Schalter kann auch innerhalb des Editors wieder 
umgestellt werden. 

Rückgabewerte 

ok Es wurden keine Dateien verändert. 
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warn 


Mindestens eine der Dateien wurde editiert. 


Ein Beispiel 


Um zu zeigen, wie Makros das Editieren erleichtern können, sei die 
Lösung eines besonders häufigen Problems dargestellt. Es geht darum, 
gemäss dem Wert einer Variablen, deren Typ ein Aufzählungstyp ist, 
einen entsprechenden Text auszugeben. Sei also 

TYPE 

Farbe=(weiss,schwarz,rot, gruen,blau,gelb,lila,gold); 
VAR 

färbe: Farbe; 

dann erledigt folgende Tastaturfolge die Arbeit äusserst schnell. Als 
Vorbereitung kopieren Sie einfach obige zweite Zeile an den 
gewünschten Ort der Ausgabeanweisung und setzen "Automatisches 
Entrücken". 

<CTRL-AxALT-DEL>CASE färbe OF<DELxDELxRETURN> 
<F4> I <ESC>.<ALT—»<ESC>W: WriteString('<CTRL-Y>'); 
<DELxSHIFT-F4xF5xF5xF5xF5xF5xF5xF5>END; 

Da das mit Sicherheit sehr kryptisch wirkt, sollte man das Beispiel sofort 
nachvollziehen. 
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Befehlszusammenfassung 


Cursor-Bewegung 


Buchstabe 

Zeile 

Wort 

Seite 

Anfang/Ende Zeile 
Anfang/Ende Textspeicher 


«-> 

<T> 

<ALT-<—> 
<ALT-t> 
<SHIFT-<—> 
<SHIFT-t > 


<i> 

<ALT —» 
<ALT4> 
<SHIFT—>> 
<SHIFT4> 


Lösch-Tasten 

Buchstabe zurück/vor 
Wort zurück/vor 
Zeile zurück/vor 


<BACKSPACE> <DEL> 

< ALT-B ACKSP ACE> <ALT-DEL> 

<SHIFT-BACKSPACE> <SHIFT-DEL> 


Funktionstasten 

Fl 

<SHIFT-F1> 

F2 

<SHIFT-F2> 

F3 

<SHIFT-F3> 

F4 

<SHIFT-F4> 

F5 

<SHIFT-F5> 

F6 

<SHIFT-F6> 

F7 

<SHIFT-F7> 

F8 

<SHIFT-F8> 

F9 

<SHIFT-F9> 

F10 

<SHIFT-F10> 


Öffne neue Datei 

Sichere aktuellen Textspeicher 

Zeige nächster Fehler 

Lies Fehlerliste erneut ein 

Suche 

Ersetze 

Beginne mit Makro-Definition 

Schliesse Makro-Definition ab 

Makro ausführen 

Abbruch der aktuellen Eingabe 

Springe auf Zeile 

Information 

Teile Fenster 

Schliesse Fenster 

Verkleinere das aktuelle Fenster 

Vergrössere das aktuelle Fenster 

Verschiebe Text nach oben (vorwärts) 

Verschiebe Text nach unten (rückwärts) 

Lösche aktuelle Zeile 

Füge oberhalb neue Zeile ein 
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Control-Befehle 

<CTRL-@> 

Setze Marke 

<CTRL-A> 

Gehe zum Zeilenanfang 

<CTRL-B> 

Gehe einen Buchstaben zurück 

<CTRL-C> 

Starte CLI 

<CTRL-D> 

Lösche Buchstaben unter dem Cursor 

<CTRL-E> 

Gehe zum Zeilenende 

<CTRL-F> 

Gehe einen Buchstaben vorwärts 

<CTRL-G> 

Breche aktuelle Eingabe ab 

<CTRL-H> 

Lösche Buchstaben vor dem Cursor 

<CTRL-I> 

Tabulator 

<CTRL-J> 

Füge Zeilenumbruch ein 

<CTRL-K> 

Lösche bis zum Zeilenende, falls Zeile leer, lösche Zeile 

<CTRL-L> 

Erneuere Bildschirminhalt 

<CTRL-M> 

Füge Zeilenumbruch ein 

<CTRL-N> 

Gehe eine Zeile vorwärts 

<CTRL-0> 

Füge neue Zeile oberhalb ein 

<CTRL-P> 

Gehe eine Zeile rückwärts 

<CTRL-Q> 

Übernimm nächsten Buchstaben imverändert 

<CTRL-R> 

Suche rückwärts 

<CTRL-S> 

Suche vorwärts 

<CTRL-T> 

Vertausche die letzten beiden Buchstaben 

<CTRL-U> 

Setze Zähler 

<CTRL-V> 

Gehe eine Seite vorwärts 

<CTRL-W> 

Bereich ausschneiden 

<CTRL-X> 

erweiterte Befehle (—> unten) 

<CTRL-Y> 

Zwischenspeicher einsetzen 

<CTRL-Z> 

Sichere und Verlasse 


Erweiterte Befehle 


<CTRL-XxCTRL-B> 

<CTRL-XxCTRL-C> 

<CTRL-XxCTRL-D> 

<CTRL-XxCTRL-F> 

<CTRL-XxCTRL-J> 

<CTRL-XxCTRL-L> 

<CTRL-XxCTRL-M> 

<CTRL-XxCTRL-N> 

<CTRL-XxCTRL-P> 

<CTRL-XxCTRL-R> 


Zeige eine Liste aller Textspeicher 

Verlasse den Editor 

Lösche aktuelleZeile 

Neuer Dateinamen 

Füge Zeilen zusammen 

Mache Kleinbuchstaben in Bereich 

Zeige nächsten Fehler 

Verschiebe Text nach oben (vorwärts) 

yerschiebe Text nach unten (rückwärts) 

Öffne Datei 
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<CTRL-XxCTRL-S> 

<CTRL-XxCTRL-U> 

<CTRL-XxCTRL-V > 

<CTRL-XxCTRL-W> 

<CTRL-XxCTRL-X> 

<CTRL-XxCTRL-Z> 

<CTRL-X>! 

<CTRL-X>= 

<CTRL-X>( 

<CTRL-X>) 

<CTRL-X>0 

<CTRL-X>1 

<CTRL-X>2 

<CTRL-X>B 

<CTRL-X>C 

<CTRL-X>D 

<CTRL-X>E 

<CTRL-X>I 

<CTRL-X>K 

<CTRL-X>N 

<CTRL-X>P 

<CTRL-X>W 

<CTRL-X>Z 

<CTRL-XxDEL> 


Sichere aktuellen Textspeicher 
Mache Grossbuchstaben in Bereich 
Lies Datei 

Sichere als neue Datei 
Vertausche Cursor mit Marke 
Verkleinere das aktuelle Fenster 
führe einen CLI-Befehl aus 
Info 

Beginne mit Makro-Definition 

Schliesse Makro-Definition ab 

Schliesse Fenster 

Nur ein Fenster 

Teile Fenster 

Wechsle Textspeicher 

Schalte Gross/Klein-Unterscheidung um 

Wechsle Verzeichnis 

Makro ausführen 

Schalte automatisches Einrücken um 
Lösche einen Textspeicher 
Gehe zum nächsten Fenster 
Gehe zum vorhergenden Fenster 
Schalte Ikonenerzeugung um 
Vergrössere das aktuelle Fenster 
Lösche aktuelle Zeile 


ESC-Befehle 


<ESCxBACKSPACE> 

<ESC>! 

<ESC>. 

<ESC>> 

<ESC>< 

<ESC>B 

<ESC>C 

<ESC>D 

<ESC>F 

<ESC>H 

<ESC>L 

<ESC>M 

<ESC>U 

<ESC>V 

<ESC>W 


Lösche ein Wort zurück 

Setze aktuelle Zeile an oberen Fensterrand 

Setze Marke 

Gehe zum Ende des Textspeichers 

Gehe an den Anfang des Textspeichers 

Gehe ein Wort zurück 

Mache Wort gross 

Lösche ein Wort vorwärts 

Gehe ein Wort vorwärts 

Setze aktuelle Zeile an oberen Fensterrand 

Mache Wort mit Kleinbuchstaben 

Gehe zur Zeile 

Mache Wort mit Grossbuchstaben 
Blättere Seite zurück 
Bereich kopieren 
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<ESC>Y Bereich auf Datei kopieren 

<ESC>% Ersetzen 
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Aufruf 


m2c [-dfinqrsv] {Dateiname} 


Arbeitsweise des Compilers 

Die Aufgabe eines Compilers ist die Übersetzung eines für den 
Menschen lesbaren Quelltextes in einen maschinennäheren Code 
gleicher Bedeutung. Diese recht einfache Erklärung beinhaltet aber nicht 
den Umfang dieser Aufgabe. Die Übersetzung eines Quelltextes muss in 
mehrere Teilaufgaben gegliedert werden. Zunächst müssen die Symbole 
erkannt, danach die Syntax kontrolliert, darauf die internen Tabellen 
für die verwendeten Strukturen generiert, die Typenkontrolle 
durchgeführt und schliesslich der Code erzeugt werden. Für ein 
Fehlerprotokoll ist unter Umständen noch ein weiterer Durchgang 
nötig. 


Ein Mehrpasscompiler führt jeden Arbeitsgang einzeln aus. Dazu 
müssen Zwischendateien erzeugt und von jedem Durchgang wieder 
gelesen werden. Dies führt zu einer langsamen Compilation und, falls 
im Hauptspeicher zwischengespeichert wird, zu einem erhöhten 
Speicherbedarf. 


Ein Einpasscompiler führt diese Arbeitsgänge parallel aus. Jedes 
Programmelement, dessen Struktur erkannt ist, wird sofort in Code 
umgewandelt. Ein Einpasscompiler wird dadurch extrem schnell, ohne 
dass dem Programmierer Nachteile erwachsen. Einzig alle 
referenzierten Objekte müssen vor dem Gebrauch deklariert sein. 


Der Amiga Modula-2 Compiler ist ein Einpass-Compiler. Der erzeugte 
Code ist MC68000-Maschinencode, was sehr schnelle Programme 
bewirkt. 


Die Quelldateien sind normale Textdateien. Wird ein Definitionsmodul 
compiliert, erzeugt der Compiler eine Symbol-Datei. Aus 
Implementationsmoduln oder Programmoduln entstehen Objekt- 
Dateien. 
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Eine Symbol-Datei dient als Referenz bei einem Import dieses Moduls. 

Es handelt sich um eine übersetzte Version der Schnittstelle. Um eine 
vollständige Typen- und Versionskontrolle zu ermöglichen, ist ein 
eindeutiger Schlüssel abgelegt. Importiert ein Modul ein anderes f 
Modul, so wird für die Compilation dessen Symboldatei gelesen. Dies 
ermöglicht eine vollständige Typenkontrolle. 


Umgebung für Definitions-Moduln 


sym-Dateien 

-O- 


Modul.def 



Modul.sym 


Objekt-Dateien aus Implementationsmoduln oder aus Programmoduln 
werden gleich behandelt. Bei Implementationsmoduln wird kontrolliert, 
ob alle in der Definition vermerkten Prozeduren auch implementiert 
sind. Ebenfalls wird die Gleichheit des Prozedurkopfs in Definition und 
Implementation geprüft. Die Schlüssel aller importierten Moduln 
werden vermerkt. So kann beim Linkvorgang kontrolliert werden, ob 
die Definition eines importierten Moduls nicht zwischenzeitlich 
geändert wurde. 


Zu jeder Objekt-Datei wird auch eine sogenannte Referenz-Datei 
erzeugt. Die Referenz-Datei enthält Informationen, die vom Debugger 
benötigt werden. Für die Compilation und den Linkvorgang sind sie 
ohne Bedeutung. 
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Umgebung für Implementations- oder Programm-Moduln 


sym-Dateien 


Modul.mod 


->1 

m2c 

k_ j 


tr 

1 


Modul.obj 


Modul.ref 


Wird während der Compilation ein Fehler in der Quelldatei gefunden, 
bricht die Übersetzung nicht ab. Es wird versucht, mit vernünftigen 
Annahmen weiter zu übersetzen. So können mehrere Fehler des 
Quelltextes in einem Übersetzungsvorgang gefunden werden. Alle 
gefundenen Fehler werden in einer vom Compiler erzeugten Datei 
festgehalten. Diese Datei hat den Namen der Eingabedatei, erweitert 
um den Buchstaben "E". Wird beispielsweise das Modul "InOut.mod" 
übersetzt, so erzeugt der Compiler eine Datei "InOut.modE" im gleichen 
Verzeichnis. Diese Fehlerdatei wird dann vom Editor oder vom 
Fehlerlister eingelesen, um alle Fehler anzuzeigen. 

Optionen 

Optionen, im Deutschen vielleicht häufiger Schalter genannt, sind 
zusätzliche Anweisungen an den Compiler. Sie repräsentieren 
Boolesche Werte. Ist der Wert wahr, werden spezielle Aktionen 
ausgeführt, ist er falsch, unterbleiben diese Aktionen. 


Die Compileroptionen werden in die Kommentare des Quelltextes 
eingebettet. Sie können an jeder Stelle in einem nicht verschachtelten 
Kommentar auftreten. In einem geschachtelten Kommentar werden sie 
ignoriert. Kommentare dürfen beliebig viele Compileranweisungen (- 
Optionen) enthalten. 


Die Syntax einer Compileranweisung ist denkbar einfach. Ein $-Zeichen 
wird von einem Buchstaben und einem der drei Zeichen "+",oder "=" 
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gefolgt. Wird diese Syntax nicht eingehalten (ein statt einem 
oder Leerzeichen zwischen diesen Zeichen), oder existiert keine 
Compileranweisung mit dem vorgegeben Buchstaben, so wird keine 
Aktion ausgeführt. Wird eine bereichsbezogene Option falsch 
angewendet (Einschalten, Zurücksetzen oder falscher Ort), wird eine 
Fehlermeldung erzeugt. 


Beispiele für Compüeroptionen: 

MODULE CompOpt; 

(* Achtung: $R+ (* gültige Option *) *) 

(* keine Option: (* $V- *) 

( verschachtelter Kommentar ) *) 

(* wird ignoriert: $S + (Leerzeichen zuviel) *) 
CONST 

text = "$R-" 

(* keine Option, da nicht in Kommentar *) 
BEGIN 


Es gibt zwei Arten von Compileroptionen: stapelbare und 
bereichsbezogene. Stapelbare Optionen können immer wieder ein- und 
ausgeschaltet werden, ausserdem ist der Zustand vor der Veränderung 
vermerkt. Sie dürfen an beliebiger Stelle des Quelltextes stehen. 
Bereichsbezogene Compileroptionen sind nur für einen 
Gültigkeitsbereich, d.h im Normalfall eine Prozedur, gültig. Sie können 
nicht beliebig umgestellt, sondern nur für eine Prozedur aktiviert 
werden, und befinden sich nach der Compilation der Prozedur 
automatisch wieder im Ausgangszustand. 


Alle Optionen sind beim Starten des Compilers gesetzt. Dadurch wird 
ein sicherer Ablauf des erzeugten Programms garantiert. Stapelbare 
Optionen können beim Aufruf des Compilers vom CLI aus in der 
gewohnten Weise ausgeschaltet werden. Zusätzlich kann auch die -d 
Option beim Aufruf gewählt werden. 


Stapelbare Optionen können durch folgende Anweisung ein¬ 
beziehungsweise ausgeschaltet werden: 


(* ... $R+ (hier wird eingeschaltet)... $R- (und hier ausgeschaltet) ...*) 
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Dabei wird der alte Wert vermerkt. Er wird durch folgende 
Compileranweisung wieder aktiv: 

(* ... $R= ... *) 

Für bereichsbezogene Optionen ist nur das Ausschalten möglich: 

(* ... $l- ... *) 

Als Bereich kann entweder das ganze Modul oder eine Prozedur gelten. 
Jede bereichbezogene Option gibt jedoch nur für eins von beiden einen 
Sinn. 


Bereichskontrolle (R; stapelbar) 


Wird auf einen Teilbereich ("subrange" wie [0..31] oder ein Feld wie a[3]) 
zugegriffen, so generiert der Compiler Code um die Gültigkeit zu 
überprüfen. Unter- oder Überschreiten des Bereichs unterbricht das 
Programm mit einem Laufzeitfehler. Ist das Programm vorsichtig 
ausgetestet (und nur dann), kann die Kontrolle mit ( * $ R - * ) 
ausgeschaltet werden, um etwas Geschwindigkeit zu gewinnen. 

VAR 

i: INTEGER; 

zwerg: ARRAY [1..7] OF INTEGER; 

FOR i:= 1 TO 7 DO 
(* $R- *) zwerg[i]:=0 (* $R= *) 

END; 


Die Bereichskontrolle wird hier unmittelbar vor der Zuweisung der 
Feldvariablen abgeschaltet und anschliessend wieder auf den alten Wert 
zurückgesetzt. Dabei muss der alte Wert nicht bekannt sein, da dieser 
vom Compiler zwischengespeichert ("auf den Stapel gelegt") wurde. 
Das Gleichheitszeichen (=) holt diesen vorgängigen Wert. 
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Über- und Unterlaufskontrolle (V; stapelbar) 


Die interne Zahlenrepräsentation kennt keine zu grossen oder zu kleinen 
Zahlen. Jede Über- oder Unterschreitung lässt sich jedoch durch das 
Testen eines speziellen Prozessorregisters (-» [MC68000], condition 
code) feststellen. Der Compiler generiert diesen Code, der im Über¬ 
oder Unterlaufsfall das Programm mit einem Laufzeitfehler unterbricht. 
Ist das Programm vorsichtig ausgetestet, kann diese Kontrolle mit 
(* $ v- *) ausgeschaltet werden. 


Stacküberlaufskontrolle (S; stapelbar) 


Das Betriebssystem kontrolliert nicht, ob ein Prozess den ihm 
zugewiesenen Speicherplatz überschreitet. Ist dies der Fall, stellt sich 
meist ein unerklärlicher Laufzeitfehler ein, dessen Ursache kaum 
feststellbar ist. Amiga Modula-2 generiert Code zur Prüfung des 
Stackbereichs. Diese Prüfung muss bei jedem Prozeduraufruf 
durchgeführt werden, was den Code vergrössert. Werden keine 
Prozeduren rekursiv aufgerufen, oder ist sonst ein Stacküberlauf 
unwahrscheinlich, so kann die Stacküberlaufskontrolle mit (* $ s - *) 
ausgeschaltet werden. 

Bezeichnerkontrolle (N; stapelbar) 


In einer Symbol-Datei werden alle Bezeichner der Prozedurparameter 
abgelegt und deren Übereinstimmung in der Implementation überprüft. 
Sollen die Bezeichner nicht vermerkt werden, kann in einem 
Definitionsmodul das Ablegen der Bezeichner mit ( *$N-* ) unterbunden 
werden. Sollen nur die abgelegten Bezeichner nicht überprüft werden, 
muss die Option (*$n-*) im Implementationsmodul gewählt werden. 


Funktionsrückgabekontrolle (F; stapelbar) 


Am Ende jeder Funktionsprozedur generiert der Compiler Code, der im 
Falle einer fehlenden RETURN-AnWeisung ausgeführt wird. Dieser 
Code generiert einen Laufzeitfehler, der das Programm abbricht. Ist bei 
einer Funktionsprozedur die ordnungsgemässe Beendigung garantiert 
(und nur dann), kann mit (* $F -*) diese Kontrolle abgeschaltet werden. 


5-8 



Implementation vorhanden (M; bereichsbezogen pro Modul) 

Zu jeder Symbol-Datei erwartet der Linker auch eine Objekt-Datei. 
Besteht jedoch die Definition nur aus Typen- und Konstantenverein¬ 
barungen und ist kein Code beim Import dieses Moduls auszuführen 
(vom Compiler erst bei der Implementation feststellbar!), erübrigt sich 
eine Objekt-Datei. In einem solchen Fall ist vor dem Modulkopf des 
Definitionsmoduls die Compileranweisung ( *$M-* ) zu schreiben. 


Parameter Deallokation (P; bereichsbezogen pro Prozedur) 

In Modula-2 dealloziert jede Prozedur (d.h. baut den Stack wieder ab) 
ihre Parameter, da sie aus der Vereinbarung genau weiss, mit wievielen 
Parametern sie aufgerufen wurde. In C werden die Parameter vom 
Aufrufer dealloziert, da nur er weiss, wieviele Parameter er übergeben 
hat. Einige Betriebssystemprozeduren benötigen eine Prozedur als 
Parameter. Diese dürfen allerdings ihre Parameter nicht deallozieren, 
was mit (*$P-*) ausgeschaltet werden kann. 

Entry/Exit-Code (E; bereichsbezogen pro Prozedur) 


Jede Prozedur führt zu Beginn einen speziellen Code aus, der den 
Modulzeiger holt, für die lokalen Variablen Platz alloziert und den 
dynamischen Link erstellt. Am Ende der Prozedur wird der Stack wieder 
entsprechend abgebaut und der Modulzeiger restauriert. Diese beiden 
Codeteile werden durch (* $e -*) nicht erzeugt. Dies wird vor allem bei 
Assembler-Prozeduren (INLINE-Anweisungen) zur Optimierung 
benötigt. Eine Prozedur ohne Entry/exit-Code besitzt auch keine RTS- 
Anweisung am Ende der Prozedur. 


Debug-Information, Referenz-Datei (-d; Befehlszeile) 


Der Compiler erzeugt zu jeder Objekt-Datei auch eine Referenz-Datei, 
die vom Debugger benötigt wird. Soll diese Datei nicht erzeugt werden, 
ist diese Option auf der Befehlszeile anzugeben. 
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Erzeuge Ikone (-i; Befehlszeile) 


Soll der Compiler keine Ikone für die Objekt-Datei erzeugen, ist diese 
Option auf der Befehlszeile anzugeben. 

Einschränkungen 

Ein Compiler ist immer auch einigen Einschränkungen unterworfen, sei 
es durch die Implementation, das darunterliegende Betriebssystem oder 
durch die Hardware, auf der der Compiler läuft. Da das unvorbereitete 
Auftreten solcher Einschränkungen sehr ärgerlich sein kann, sind die 
Einschränkungen von Amiga Modula-2 im folgenden aufgelistet, auch 
wenn Sie kaum an die Grenzen stossen werden. 

Maximale Grösse von Code- und Konstantenbereich pro 
Modul: 32kByte. 

Der Code und die konstanten Zeichenketten müssen innerhalb 
eines Moduls im Bereich von 32k liegen. Die Gesamtgrösse 
eines Programms, d.h. eines komplett gelinkten Moduls, ist 
allerdings nicht eingeschränkt 

Bezeichnerbuffer pro Modul: 32kByte 

Alle Bezeichner, die entweder deklariert oder importiert 
werden, müssen vom Compiler abgelegt werden. Diese Ablage 
heisst Bezeichnerbuffer. 

Maximale Anzahl importierter Moduln pro 
Compilationseinheit: 64. 


Ein Programm darf aus beliebig vielen Moduln bestehen, 
vorausgesetzt jede Compilationseinheit importiert im 
Maximum 64 Moduln. 
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Maximale Anzahl von Strukturen pro Definitionsmodul: 1024. 


Jeder neue Typ (Aufzählungstypen, Verbünde, Felder, 
Unterbereiche) bildet eine neue Struktur. Es spielt dabei keine 
Rolle, wie oft eine Struktur auftritt. Entscheidend ist einzig die 
Deklaration. Das strikte Einführen von Typnamen reduziert 
die Anzahl der Strukturen. 


Maximaler Speicherbedarf aller Variablen pro 
Gültigkeitsbereich: 2 GByte. 


Die Einschränkung pro Gültigkeitsbereich bedeutet, dass in 
einem Modul mit einem Variablenbedarf von 2 GByte auch jede 
Prozedur wiederum Variablen bis zur Grösse von 2 GByte 
deklarieren kann, wobei dann eine entsprechende Stack- 
Grösse gesetzt werden muss. 


Maximale Anzahl von Konstanten in Aufzählungstyp: 4 294 967 
295. 


Maximale Länge des Modulnamens: 30 Zeichen. 


Maximale Anzahl EXIT-An Weisungen in LOOP-Anweisung: 
16. 


Der Compiler kann bis zu 16 unbearbeitete EXIT-An Weisungen 
) handhaben. Eine EXIT-Anweisung gilt dann als unbearbeitet, 

wenn die zur LOOP-Anweisung zugehörige END-Anweisung 
noch nicht erreicht wurde. 


Maximale Anzahl verschachtelter WITH-Anweisungen: 6. 


Ausdrucks-Verschachtelungstiefe: 5 REAL-Terme oder 2 
LONGREAL-Terme. 
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Maximale Anzahl von Fällen in einer CASE-Anweisung: 128. 


Oftmals kann die Anzahl von Fallunterscheidungen reduziert 
werden. Die Marke "1. . 5 entspricht nämlich einem Fall, 
während die Marke "1,2,3:" drei Fällen entspricht. 

Maximale SET-Grösse: 32 Elemente. 


Gemäss der Modula-2 Definition ist die SET-Grösse durch die 
Wort-Grösse des Prozessors bestimmt. Obwohl das MC68000- 
Wort nur 16 Bit gross ist (BITSET), kann er auch 32-Bit "Long 
Words" verarbeiten (—» [MC68000]), was hier ausgenutzt wird. 

Funktionsresultate: ARRAY und RECORD Typen sind nicht 
erlaubt. 



1 


Zusammenfassung 


Standardtypen 

BOOLEAN [FALSE, TRUE] 

CARDINAL 0 < card < 65535 = 216-1 

CHAR OC < char < 377C 

INTEGER -32768 = -215 < int < 32767 = 215-1 

LONGC ARD 0 < longCard < 4294967295 = 232-1 

LONGINT -2147483648 = -231 < longlnt < 2147483647 = 231-1 

LONGREAL -1.0-10308 < longReal < 1.0-10308, 

Genauigkeit 10*15 

REAL -1.0-1038 < rea l < 1.0-1038, Genauigkeit 10*6 

Standardprozeduren 

DEC(x) vermindert x um 1 (nur skalare Typen) 

DEC(x,n) vermindert x tim n (nur skalare Typen) 

EXCL(s,i) entfernt Element i aus dem Set s 

HALT bricht Programm ab 

INC(x) erhöht x um 1 (nur skalare Typen) 

INC(x,n) erhöht x um n (nur skalare Typen) 

INCL(s,i) fügt Element i in Set s ein 
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Standardfunktionen 


ABS(x) 

Absolutwert 

CAP(c) 

bildet Intervall "a".."z" auf "A".."Z" ab, sonst 
keine Änderung 

CHR(x) 

entsprechender Zeichenwert 

FLOAT(x) 

wandelt INTEGER-Wert in REAL-Wert um 

HIGH(a) 

obere Feldgrenze (nur bei "offenen 
Feldparametern") 

MAX(T) 

Grösstmöglichster Wert des Typs T 

MIN(T) 

Kleinstmöglicher Wert des Typs T 

ODD(x) 

gibt TRUE zurück, falls x ungerade 

ORD(x) 

Ordinalwert von x 

SIZE(T) 

Grösse (in Byte) des Typs T 

SIZE(x) 

Grösse der Variablen x 

TRUNC(x) 

gibt ganzahligen Teil von x zurück 

VALCI» 

gibt Wert des Typs T mit Ordinalwert x zurück 

Operatoren und Begrenzer 

+ 

& [ # <> } 

- 

{ < .. 1 

* 

A > : 

/ 

; <= ) 

:= 

( = >= ] 


( 
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Reservierte Worte 


AND 

EXPORT 

QUALIFIED 

ARRAY 

FORWARD 

RECORD 

BEGIN 

FROM 

REM 

BPOINTER 

IF 

REPEAT 

BY 

IMPLEMENTATION 

RETURN 

CASE 

IMPORT 

SET 

CODE 

IN 

THEN 

CONST 

LOOP 

TO 

DEFINITION 

MOD 

TYPE 

DIV 

MODULE 

UNTIL 

DO 

NOT 

VAR 

ELSE 

OF 

WHILE 

ELSIF 

OR 

WITH 

END 

POINTER 


EXIT 

PROCEDURE 


Vordefinierte Bezeichner 

ABS 

HALT 

NIL 

BOOLEAN 

HIGH 

ODD 

CAP 

INC 

ORD 

CARDINAL 

INCL 

PROC 

CHAR 

INTEGER 

REAL 

CHR 

LONGCARD 

SIZE 

DEC 

LONGINT 

TRUE 

EXCL 

LONGREAL 

TRUNC 

FALSE 

MAX 


FLOAT 

MIN 



Rückgabewerte 

ok Der Befehl konnte ordnungsgemäss ausgeführt 

werden. 

error Mindestens einer der Dateien konnte nicht fehlerfrei 

übersetzt werden. 
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Der Linker 


Aufruf.3 

Arbeitsweise des Linkers.3 

Optionen.3 

Fehlermeldungen.4 

Rückgabewerte.5 
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Aufruf 


m21 [-iqx] {Dateiname} 

Arbeitsweise des Linkers 

Der Linker bindet Objektdateien zu einem ausführbaren Programm. Als 
Hauptmodul wird dasjenige Modul verwendet, dessen Objektdatei als 
Argument übergeben wird. Die Objektdateien aller referenzierten 
(importierten) Moduln werden dem Pfad folgend gesucht und 
eingelesen. Sind alle Referenzen aufgelöst, wird eine neue Datei 
geschrieben. Diese Datei enthält ein ausführbares Programm und 
besitzt den Namen des Hauptmoduls (ohne Erweiterung). Während des 
Linkvorgangs werden die Namen der gelesenen Dateien sowie der 
benötigten Amiga-Libraries ausgegeben. 


Umgebung für den Linker 


obj-Dateien 

libraries-Dateien 

& 


Modul 



Programm 


Optionen 

-i Diese Option weist den Linker an, keine Ikone zu 

erzeugen. 

-q Es werden keine Namen von gelesenen Dateien 

ausgegeben. Fehlermeldungen erscheinen wie 
normal. 
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-X 


Wird diese Option gewählt, erzeugt der Linker keine 
ausführliche Tabelle der gelinkten Moduln. Nur die 
Bibliotheken die vom Laufzeitsystem geöffnet werden 
müssen sind eingetragen. 

Fehlermeldungen 

Die Fehlermeldungen des Linkers werden am besten an einem Beispiel 
erklärt. Dabei wird folgender Modul-Anfang angenommen: 


MODULE prog; 

IMPORT ASCII, InOut; 

Der Programmaufruf sei folgender: 

m21 obj/prog.obj 


Unverträglicher Schlüssel für 'ASCII' in 'InOut' aus 'obj/InOut.obj' 

Da das Modul 'InOut' das Modul 'ASCII' ebenfalls importiert, ist in 
der Objekt-Datei des InOut-Moduls der Schlüssel des Moduls 
'ASCII' vermerkt. Dieser Schlüssel wird bei der Compilation 
erzeugt, damit eine erneute Compilation eines Definitionsmoduls 
festgestellt werden kann. Erscheint die genannte Fehlermeldung, 
unterscheidet sich der ASCII-Schlüsseleintrag des Moduls 'prog' 
vom ASCII-Schlüsseleintrag des Moduls 'InOut'. Daraus folgt, 
dass das Definitionsmodul 'ASCII' zwischen den Compilationen 
von 'prog' und 'InOut' selbst compiliert wurde. Da die Gleichheit 
beider Versionen nicht garantiert werden kann, muss der 
Linkvorgang abgebrochen werden. 


Verschiedene Modultypen für 'Dos' aus ’prog.obj' 

Der Modultyp (normal, ohne Implementation, Library) muss vor 
dem Modulschlüssel geprüft werden. Werden zwei Moduln 
gleichen Namens aber verschiedenen Typs importiert, erscheint 
diese Meldung. 
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Speichermangel für 'Terminal' 

Die Objekt-Datei des Moduls 'Terminal' kann nicht mehr in den 
Hauptspeicher geladen werden. 


Fehlendes Modul 'Terminal' 

Die Objekt-Datei des Moduls 'Terminal' ist in keinem Projekt 
entlang des Pfads vorhanden. Entweder ist der Pfad unvollständig, 
oder die Objekt-Datei ging verloren. 


Formatfehler in 'obj/Terminal.obj' 

Entweder es handelt sich bei dieser Datei nicht um eine Objekt- 
Datei, oder die Datei wurde durch einen Diskettenfehler unlesbar. 

Rückgabewerte 

ok Der Befehl konnte ordnungsgemäss ausgeführt 

werden. 


error Mindestens bei einer Datei ist beim Binden ein Fehler 

auf getreten. 
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Der Fehlerlister 


Aufruf.3 
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Optionen.3 
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Fehlermeldungen.6 

Rückgabewerte.6 
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Aufruf 


m2error [-x] {Dateiname} 


Aufgabe und Arbeitsweise des Fehlerlisters 

Dieser Teil beschreibt die Möglichkeit, lesbare Fehlerlisten zu 
generieren. Dies ist nur nötig, wenn man statt m2emacs einen anderen 
Editor verwenden will. 

m2error zeigt für jeden Fehler die unmittelbare Umgebung der 
fehlerhaften Textstelle an. Dazu werden etwa die letzten 100 Zeichen 
vor der Fehlerstelle auf den Bildschirm geschrieben. Ist davon bereits ein 
Teil auf dem Bildschirm vorhanden, so wird nur der neue Text 
geschrieben. In der nachfolgenden Zeile einer fehlerhaften 
Programmtextzeile zeigt ein "''"-Zeichen die Fehlerstelle an und auf den 
folgenden Zeilen die Fehlermeldungen im Klartext. Die 
Fehlerumgebung sollte ausreichen, den Ort genau zu lokalisieren und 
die Fehlerstelle zu finden. Um das Auffinden der Fehlerstellen noch zu 
vereinfachen, wird auch die Zeilennummer jeder Zeile angegeben. 

m2error benötigt die Datei "Fehler-Meldungen" im "M2 : "- 
Verzeichnis. Ist diese Datei nicht vorhanden, bricht das Programm ab. 

Optionen 

m2error kennt eine Option: 

-x schreibt nicht nur den Programmtext an einer 

Fehlerstelle, sondern erstellt das gesamte Abbild des 
Ursprungtextes. Die Fehler werden in derselben 
Weise wie oben beschrieben dargestellt. 
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Beispiel-Ausgaben 


Nachfolgend die Ausgabe von m2error, erstes Beispiel ist aufgerufen 
ohne die Option "-x", die zweite mit. 

m2error, 3.2d, 1.11.88, © AMSoft 

1 MODULE err; 

2 

3 FROM InOut IMPORT 

4 WriteChar,WriteLn,Writelnt; 

r 

| 55: Bezeichner nicht sichtbar 


15 a, b, c: INTEGER 

16 END; 

17 

18 BEGIN 

19 FOR i:=0 TO 99 DO 

20 FOR j:=0 TO 99 DO 

21 Writelnt(i, 6) Writelnt(j,6); 
WriteLn; 


I 96: Strichpunkt zwischen 
Anweisungen 

erwartet 

22 END 

23 END; 

24 i:=p.a; 


43: Bezeichner sollte einen Record 
bezeichnen, nicht POINTER-Typ 


| 3028: Inkompatible Zuweisung 
Unterbereich 
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m2error, 3.2d, 1.11.88, © AMSoft 

1 MODULE err; 

2 

3 FROM InOut IMPORT 

4 WriteChar,WriteLn,Writelnt; 

l A 

| 55: Bezeichner nicht sichtbar 

5 

6 (* 

7 * Demo Programm für den Fehlerlister. 

8 * 

9 * Es enthält drei Fehler, die die 

verschiedenen 

10 * Meldungsarten des Compiler 
aufzeigen. 

11 *) 

12 VAR 

13 i,j: INTEGER; 

14 p: POINTER TO RECORD 

15 a,b,c: INTEGER 

16 END; 

17 

18 BEGIN 

19 FOR i:=0 TO 99 DO 

20 FOR j:=0 TO 99 DO 

21 Writelnt(i, 6) Writelnt(j,6); 
WriteLn; 


I 96: Strichpunkt zwischen 
Anweisungen 

erwartet 

22 END 

2 3 END; 

24 i: =p. a; 

I-- 

I 43: Bezeichner sollte einen Record 
bezeichnen, nicht POINTER-Typ 


I 3028: Inkompatible Zuweisung 
Unterbereich 

25 END err. 

26 
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Fehlermeldungen 

Modulname: Datei nicht gefunden 

Die Eingabedatei wurde nicht gefunden, entweder existiert sie 
nicht oder der Name wurde falsch geschrieben. 

Modulname: Keine Fehlerdatei gefunden 

Zur angegebenen Quelldatei existiert keine Fehlerdatei. Auch 
mit der -x-Option wird dann keine Ausgabe erzeugt. 

M2:Fehlermeldungen nicht gefunden oder zuwenig Speicher 

Die Datei "M2 : Fehler-Meldungen" konnte nicht geladen 
werden; entweder sie wurde nicht gefunden oder der benötigte 
Speicherplatz konnte nicht alloziert werden. 

Rückgabewerte 

ok Der Befehl konnte ordnungsgemäss ausgeführt 

werden. 

warn Eine Datei oder deren Fehlerdatei wurde nicht 

gefunden. 

fail Die Datei "M2 : Fehler-Meldungen" kann nicht 

geöffnet werden. 
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Eigenschaften 


Dieses Kapitel beschreibt einige Eigenschaften von Amiga Modula-2. 
' Das beinhaltet auch Unterschiede und Besonderheiten zu den üblichen 
Implementationen. Ebenfalls sollen hier allfällige Differenzen zu 
gängigen Lehrbüchern hervorgehoben werden. Die Unterschiede sind 

auf die ersten Standardisierungsschritte zurückzuführen^. 

Ganze Zahlen 


Da der MC68000 Prozessor eine Registerbreite von 32 Bit hat, werden 
auch Rechengrössen von dieser Grösse angeboten. Die entsprechenden 
; Typen heissen LONGINT, bzw. LONGCARD. Der LONGINT-Bereich 
umfasst alle ganzen Zahlen im Bereich von -2T47’483’648 bis 
2T47'483'647, der LONGCARD-Bereich geht von 0 bis 4'294'967'295. 


Zahlen-Konstanten, wie zum Beispiel 0 oder -4'009, haben von 
vornherein keinen bestimmten Typ. Der Compiler weiss lediglich, dass 
es sich um skalare Zahlen handelt. Erst wenn sie in Rechnungen 
gebraucht werden oder einer Variablen zugewiesen werden, erhalten sie 
einen Typ. Bei Zuweisungen wird natürlich kontrolliert, ob diese 
Konstante überhaupt in dieser Variablen Platz hat. In neueren 
Publikationen wird vereinzelt eine "lange Zahl" mit einem D hinter der 
Zahl gekennzeichnet., z.B. 12D wäre die LONGCARD Konstante 12. 
Dies ist in Amiga Modula-2 nicht zulässig, aber auch nicht nötig. 


In diesem Zusammenhang sei eine vor allem für Numeriker wichtige 
1 Anmerkung zu den Operatoren div und mod erwähnt. Die 
mathematische Definition des Rests und der Division lautet: 


x DIV y = q q<x/y 

x MOD y = r, 0<r<y für y>0; y<r<0 für y<0 

dabei muss immer gelten: q * y + r = x. 


1 Das British Standard Institute (BSI) und die International Standard 
Organization (ISO) arbeiten zur Zeit an einem Modula-2 Standard. 


Anmerkungen 


8-3 



Diese Bedingungen sind bei den meisten Implementationen nicht erfüllt. 
So ist bei negativen Divisoren das Resultat der ganzzahligen Division 
grösser als der Quotient (näher bei Null) und der Rest hat das 
Vorzeichen des Dividends statt des Divisors. Die Operatoren div und 
mod führen in Amiga Modula-2 die numerisch sauberen Operationen 
durch. Wird jedoch einmal die alte Definition benötigt, können die 
Operatoren "/" und rem verwendet werden. Der "/"-Operator hat bei 
Zahlen des Typs REAL, LONGREAL oder FFP die gewohnte Bedeutung 
der Division. 


Um die Unterschiede deutlich vor Augen zu führen, soll folgendes 
Beispiel dienen: 


WriteString(" i: DIV 3 MOD 3")/ 

WriteString(" DIV -3 MOD -3"); 

WriteLn; 

FOR i = 4 TO -4 BY -1 DO 
Writelnt (i,4); WriteString(": ") ; 

Writelnt(i DIV 3, 6); Writelnt(i MOD 3, 6); 
Writelnt (i DIV -3, 6); Writelnt(i MOD -3, 6); 
WriteLn; 

END; 


ergibt folgende Ausgabe: 


1 
4 
3 

2 
1 
0 

-1 

-2 

-3 

-4 


DIV 3 
1 
1 
0 
0 
0 

-1 

-1 

-1 

-2 


MOD 3 
1 
0 
2 
1 
0 
2 
1 
0 
2 


DIV -3 MOD -3 
-2 -2 

-1 0 

-1 -1 

-1 -2 

0 0 

0 -1 

0 -2 

1 0 

1 -1 


Werden im Gegensatz dazu die Operatoren der alten Definition, "/” und 
”REM M verwendet, ergibt sich folgendes: 
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WriteString(" i: / 3 REM 3”); 

WriteString(" / -3 REM -3") ; 

WriteLn; 

FOR i = 4 TO -4 BY -1 DO 
Writelnt(i,4); WriteString(": "); 

Writelnt(i / 3, 6); Writelnt(i REM 3, 6); 
Writelnt(i / -3, 6); Writelnt(i REM -3, 6); 
WriteLn; 

END; 


ergibt folgende Ausgabe: 


1 
4 
3 

2 
1 
0 

-1 

-2 

-3 

-4 


/ 3 REM 3 / 

1 1-1 
1 0-1 
0 2 0 

0 10 
0 0 0 

0-10 
0-2 0 
-10 1 
-1 -1 1 


-3 REM -3 
1 
0 
2 
1 
0 

-1 

-2 

0 

-1 


Dabei fällt vor allem die Symmetrie bei der alten Definition auf. Die 
korrekte Lösung hat keine Symmetrie, ist aber kontinuierlich. 


Gleitpunkt-Zahlen 


Zum Rechnen mit Gleitpunkt-Zahlen seien folgende Anmerkungen 
gemacht: der REAL-Bereich umfasst Zahlen von -1.0E38 bis 1.0E38. Da 
dieser Bereich oft nicht genügt, gibt es in Amiga Modula-2 auch noch 
den Typ LONGREAL, der von -1.0E308 bis 1.0E308 reicht. Intern 
werden diese Zahlen nach dem Standard von IEEE abgelegt. Motorola 
entwickelte eine dritte, spezielle Darstellung der Gleitpunkt-Zahlen, das 
FFP (fast floating point) Format. Auch dieses Format wird vom Amiga 
Modula-2 Compiler unterstützt (nähere Details entnehme man dem 
Kapitel SYSTEM). Es umfasst zwar einen kleineren Bereich als die 
REAL Darstellung (es sind lediglich Zahlen von -1.0E19 bis 1E19 
darstellbar), dafür sind die Operationen etwas schneller. 
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Bei den Konstanten einer Gleitpunkt-Zahl gelten im Wesentlichen 
dieselben Regeln wie im skalaren Fall: von vornherein haben die Zahlen 
keinen bestimmten Typ. Er wird erst bei Rechnungen oder Zuweisungen 
ermittelt und geprüft. Es gibt also auch hier keine Unterscheidung 
mittels eines D in der Schreibweise, wie dies in einigen Publikationen zu 
finden ist: 1.234D201 ist nicht erlaubt. Stattdessen schreibt man einfach 
1.234E201. 

Restriktionen des Einpass-Compilers 

Da der Compiler in einem Durchlauf den Code erzeugt, müssen alle 
referenzierten Objekte bereits bekannt sein. Eine Ausnahme bilden 
Zeigerdeklarationen, die auch vor der entsprechenden Struktur 
deklariert werden können. Muss eine Prozedur aufgerufen werden, die 
erst später deklariert wird, muss diese Prozedur vorwärtsdeklariert 
werden. Dazu wird der Prozedurkopf geschrieben, und anstelle des 
Prozedurrumpfs steht das reservierte Wort FORWARD. Die 
Prozedurimplementation geht dann unverändert vor sich. Beispiel: 

PROCEDURE ForwProc(i: INTEGER); FORWARD; 

(* Aufruf von ForwProc innerhalb einer Prozedur *) 

PROCEDURE ForwProc(i: INTEGER); 

BEGIN 

(* Anweisungen *) 

END ForwProc; 

Anordnung (Alignment) 


In Amiga Modula-2 werden Typen bis auf Bytegrenzen gepackt. Einige 
Beispiele sollen dies verdeutlichen: 

TYPE 

Tag = (mon, die, mit, don, fre, sam, son) ; 

Temperatur = [-50..100]; 

Set = SET OF [0. .7]; 
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Alle oben genannten Typen nehmen nur ein Byte in Anspruch. Typen, 
mehr als ein Byte beanspruchen, beginnen immer an Wortgrenzen 
(MC68000-Anforderung). 

j 

Typentransfer und Typenkonversion 


Die systemnahe Programmierung macht es zeitweilig nötig, einer 
Variable einen neuen Typ zu geben. Dabei müssen jedoch die Grössen 
des Ursprungtyps sowie des Zieltyps gleich gross sein. Beispiel: 

VAR 

bs: BITSET; 
card: CARDINAL; 

bs:=BITSET(card) ; 

In diesem Beispiel wird die Bitkombination der Speicherzelle, die für die 
Variable card reserviert ist, unverändert in die Speicherzelle der 
Variablen bs übernommen. Programme, die diesen Mechanismus 
verwendeten, waren allerdings kaum portierbar, da der Speicherbedarf 
der einzelnen Typen nicht auf allen Rechnern gleich ist. Wird ein 
Typentransfer benötigt, muss neu die Prozedur CAST aus dem Modul 
SYSTEM importiert werden. Dadurch ist die Systemabhängigkeit 
angezeigt. Dieser Mechanismus ist zwar bisher noch nicht verwendet 
worden, ist aber mit Sicherheit in dem in Kürze zu erwartenden 
Modula-2 Standard enthalten. 

Der im Beispiel verwendete Mechanismus ist ebenfalls noch enthalten. 
) Allerdings wird dann kein Typentransfer, sondern eine sichere 
Typenkonversion ausgeführt. Diese macht eigentlich die Prozeduren 
ORD, CHR, FLOAT und VAL unnötig, sie bleiben jedoch vorderhand 
aus Kompatibilitätsgründen in der Sprache enthalten, sollten aber nicht 
mehr verwendet werden. Die Typenkonversion funktioniert nur mit den 
imstrukturierten Typen (u.a. Unterbereiche und Aufzählungstypen). 
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LONGINT("A") 
CHAR(65) 

REAL(100) 

usw. 

BITSET(3) 


entspricht ORD (" A ") 

entspricht chr (6 5) 

entspricht flo at (10 0) 

GEHT NICHT! (nicht unstrukturiert) 


( 


Die Verwendung von Typentransferfunktionen hat den Vorteil, dass der 
Compiler angewiesen werden kann einen ganz bestimmten Typ zu 
erzeugen. Die Funktion ord () konvertiert immer zu einem LONGINT. 
Soll aber das Resultat einer Konversion z.B. einer INTEGER Variablen 
zugewiesen werden, muss es anschliessen wieder zu INTEGER 
konvertiert und dazu zusätzlicher Code erzeugt werden. 


Sonstiges ( 

In Modula-2 kann ein Modul mit einer Priorität versehen werden. Diese 
Prioritätsangabe in eckigen Klammern nach dem Modulnamen wird 
vom Amiga Modula-2 Compiler ignoriert. 


Die Funktion HIGH kann nur auf "offene Feldparameter" angewendet 
werden. Die Anwendung auf andere Felder ist ohnehin zweifelhaft, da 
die untere Grenze nicht Null sein muss. 


Die Funktionen SIZE und VAL müssen nicht mehr vom Modul 
SYSTEM importiert werden. Sie sind vordeklarierte Funktionen. SIZE 
gibt die Grösse eines Typs oder einer Variablen in Byte zurück. 


Im Gegenzug ist der Typ BITSET neu vom Modul SYSTEM zu 
importieren. 


In gewissen Implementationen von Modula-2 ist es üblich, den Platz für 
eine neue Zeigervariable mit NEW und DISPOSE zu verwalten. In 
Amiga Modula-2 gibt es weder NEW noch DISPOSE. Stattdessen 
müssen direkt die Prozeduren ALLOCATE und DEALLOCATE aus 
Storage -oder entsprechende Prozeduren aus Heap,Exec, 
Intuition - aufgerufen werden. Beispiel: 
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TYPE 

Strukt = RECORD 
a: INTEGER; 
b: CHAR; 

C: INTEGER; 

END; 

VAR zeiger; POINTER TO Strukt; 

ALLOCATE(zeiger, SIZE(zeiger A )); 

(* entspricht NEW(zeiger) *) 

Die Behandlung von Coroutinen ist nicht mehr im Pseudomodul 
SYSTEM vorhanden. Stattdessen bietet ein herkömmliches 
Bibliotheksmodul Prozeduren zur Behandlung von Coroutinen (-» 
Coroutines). 

Systemspezifische Erweiterungen / SYSTEM 

Nebst den besprochenen Eigenschaften von Amiga Modula-2 gibt es 
auch einige Änderungen, die von der Anpassung an das Betriebssystem 
herrühren. 

Variablen vom Typ BOOLEAN werden intern nicht als [false, true] 
dargestellt, sondern als 0 und -1. Dies führt zu deutlich dichterem 
MC68000-Code in Boole'sehen Ausdrücken und erspart Umrechnungen 
nach einem Betriebssystem-Aufruf. Werden Boolesche Werte als 
Argument an Standardfunktionen übergeben - beispielsweise ORD - 
wird vom Compiler automatisch eine Umrechnung übernommen. Der 
internen Repräsentation ist nur in der systemnahen Programmierung 
Rechnung zu tragen. 


Die Verwendung von Variablen des Typs REAL hat zur Folge, dass 
zusätzliche Moduln geladen werden. Der Programmierer muss dazu 
keine besonderen Vorkehrungen treffen, da der Compiler diese 
Eintragungen vornimmt. Werden Variablen vom Typ LONGREAL 
benutzt, wird ebenfalls ein zusätzliches Modul geladen. Spielt die 
Genauigkeit und der Bereich keine Rolle, können auch Variablen des 
Typs FFP (-» SYSTEM) benutzt werden. Diese Operationen der Zahlen 
in FFP-Darstellung sind im ROM enthalten, und vergrössem darum die 
Codegrösse nicht. 


Anmerkungen 


8-9 



Parameter werden normalerweise via den Stack an die Prozeduren 
übergeben. Speziell für Library-Prozeduren wurde ein Mechanismus 
gefunden, der die Parameterübergabe via Register erlaubt. Es ist 
möglich, auch in anderen Prozeduren davon Gebrauch zu machen. Die 
Benutzung ist allerdings nicht ungefährlich, da die Register nicht 
automatisch gesperrt sind und eventuell bei der Auswertung eines 
Ausdrucks überschrieben werden. 


Registerparameter haben unmittelbar nach dem Namen des formalen 
Parameters eine Zahl zwischen 0 und 15, eingeschlossen in geschweifte 
Klammern. Die Datenregister werden durch die Zahlen 0 bis 7 
repräsentiert, die Adressregister durch die Zahlen 8 bis 15. Beispiel: 

PROCEDURE Beispiel(a0{8>: ADDRESS; dO{0}: LONGINT); 

Amiga Modula-2 besitzt zusätzlich ein reserviertes Wort CODE. Dieses 
wird ebenfalls hauptsächlich in Library-Moduln verwendet. Statt eines 
Prozedurkörpers steht das reservierte Wort CODE, gefolgt von einer 
negativen Zahl. Dies bewirkt das Erzeugen einer einzigen MC68000- 
Anweisung, nämlich 

JSR d(A6) 

Die angegebene Zahl ergibt den Wert von d. 


Eine weitere Erweiterung erlaubt es für Amiga Bibliotheken (z.B. 
Intuition.library) Schnittsteilen-Moduln zu schreiben, die dem Compiler 
erlauben, direkt den Aufrufcode für die Prozeduren zu generieren. Die 
Bibliothek wird vom Laufzeitsystem dann auch automatisch geöffnet 
und nach Programmende geschlossen. Um ein DEFINITION 
MOD ULE als Schnittstellen-Modul zu definieren, müssen nach dem 
Modulnamen der Name der Bibliothek und die verlangte 
Versionsnummer in geschweiften Klammem gesetzt werden. 

| DEFINITION MODULE Intuition{"intuition.library",33}; 

Zu einem Schnittstellen-Modul muss kein Implementationsmodul 
geschrieben werden. Die Prozeduren müssen jedoch alle eine CODE- 
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Anweisung enthalten, die ihrem Offset in der Librarytabelle angeben. 
Der Compiler sorgt im Falle eines Prozeduraufrufs selbständig dafür, 
dass das A6 Register mit der Adresse der Library geladen wird. Die 
nachfolgende Anweisung ist dann JSR d (A6), wobei für d der 
angegebene Offset verwendet wird. 


Da die Bibliotheken automatisch geöffnet werden, ist es im Gegensatz 
zu C-Programmen nicht nötig, für die Bibliotheksadresse eine Variable 
zu deklarieren. Manchmal benötigt man aber doch die Adresse der 
Bibliothek, beispielsweise um auf die IntuitionBase zugreifen zu 
können. Dies kann mit der Funktion ADR geschehen. Dazu importiert 
man das Modul unqualifiziert und verwendet als Parameter von ADR 
den Modulnamen: 


Beispiel: 

IMPORT Intuition; 

VAR 

intuiBase:IntuitionBasePtr; 
BEGIN 

intuiBase:=ADR(Intuition); 


Das AmigaDOS verwendet neben "normalen" Zeigern sogenannte 
BCPL-Zeiger. Dies sind Zeiger, deren Wert 4 mal kleiner ist, als die 
Speicheradresse, auf welche sie zeigen. M2Amiga erlaubt die 
Deklaration solcher Zeiger. Dies geschieht, indem man einen Zeiger als 
BPOINTER TO ... deklariert. So enthält beispielsweise das Modul 
Dos die Deklaration 


| FileHandlePtr=BPOINTER TO FileHandle. 


Variablen von diesem Typ kann man wie normale Zeigervariablen 
verwenden, der Compiler generiert nötigenfalls automatisch die 
Multiplikation mit 4, um auf die Elemente der FileHandle zuzugreifen. 
Wird eine Typenkonversion eines BPOINTER nach ADDRESS oder 
umgekehrt durchgeführt, dann wird ebenfalls der Wert des Zeigers 
entsprechend konvertiert. Zu Beachten: Wird statt einer Typen- 
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konversion ein Typentransfer mit CAST durchgeführt, wird nicht 
angepasst. 


Soll eine Variable zu allen BPOINTER Typen kompatibel sein, muss 
diese vom Typ BPTR sein. Dieser hat für die BPOINTER-Typen die 
gleiche Funktion, wie ADDRESS für die POINTER-Typen. 


Im folgenden wird das Pseudomodul SYSTEM besprochen. Nicht 
besonders erklärte Typen oder Prozeduren haben die Eigenschaften, wie 
sie in jedem Lehrbuch erklärt sind. Änderungen oder Unterschiede sind 
erklärt. 


DEFINITION MODULE SYSTEM; 
TYPE 
BYTE; 

WORD; 

ADDRESS = POINTER TO BYTE; 
BPTR = BPOINTER TO BYTE; 
BITSET = SET OF [0..15]; 
LONGSET = SET OF [0..31]; 
FFP; 


(* 

T entspricht skalaren Typ mit Grösse <= 4 byte 

*) 

PROCEDÜRE ADR (VAR x : AnyType): ADDRESS; 
PROCEDÜRE INLINE( x : WORD); 

PROCEDÜRE REG ( reg: [ 0 . . 15]) : LONGINT; 

(* reg const *) 

PROCEDÜRE SETREG( reg: [0..15]; 

val: T); 

(* reg const. SIZE(T)=4 *) 

PROCEDÜRE TSIZE ( AnyType): LONGINT; 

PROCEDÜRE SHIFT ( x: T; 

n: LONGINT): T; 

PROCEDÜRE CAST ( AnyType1; 

x: AnyType2): AnyType1; 

END SYSTEM. 
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Anmerkung: Nicht mehr im Modul SYSTEM sind enthalten: 

SIZE neu Standardprozedur 

PROCESS, NEWPROCESS, TRANSFER: 
Coroutinen-Behandlung neu mit 
Bibliotheksprozeduren (-» Coroutines) 

Anmerkung: Die Speichereinheit auf dem MC68000, auf welche 

individuell zugegriffen werden kann, ist das Byte 
(BYTE). Der Parametertyp ARRAY OF WORD sollte 
nicht mehr verwendet, und durch ARRAY OF BYTE 
ersetzt werden. 


Der Typ ADDRESS ist mit allen Zeigervariablen, die mit POINTER TO 
. . . deklariert wurden, sowie mit dem Typ LONGINT kompatibel. 

Der Typ BP TR ist mit allen Zeigervariablen, die mit BPOINTER TO 
. . . deklariert wurden, sowie mit den Typ LONGINT kompatibel. 

Der Typ BITSET entspricht dem bisher vordefiniertem Typ BITSET. 
Da BITSET ein Wort gross sein soll, ist dieser Typ maschinenabhängig, 
warum er nun vom Modul SYSTEM importiert werden muss. 
LONGSET entspricht einem Set in "Langwort"-Grösse. 


FFP ist der MC68000-spezifische Typ der Gleitpunktzahlen. Diesem 
Typ können beliebige konstante Gleitpunktzahlen zugewiesen werden, 
und die gleichen mathematischen Grundfunktionen wie für den Typ 
REAL sind für diesen Typ definiert. 

Die Prozedur INLINE fügt die übergebenen Worte (es sind beliebig 
viele erlaubt) unverändert in den Code ein. Es ist Ihnen überlassen, dass 
die übergebenen Daten einen vernünftigen Code ergeben. 

Die Funktion REG gibt den Wert des angesprochenen Registers zurück. 
Der Parameter reg muss ein konstanter Ausdruck sein, dessen Wert 
zwischen 0 und 15 liegt. Die Datenregister DO bis D7 werden durch die 
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Werte 0 bis 7 angesprochen, die Adressregister AO bis A7 durch die Werte 
8 bis 15. 


Die Prozedur SETREG legt den angegebenen Wert im angegebenen 
Register ab. Für den Parameter reg gilt das gleiche wie bei REG. Das 
angesprochene Register wird dadurch nicht markiert, d.h. der nächste 
Ausdruck kann den Registerinhalt bereits wieder zerstören! 


Die Prozedur TSIZE erlaubt keine Angabe von Kennfeldem (tag fields) 
um die Grösse einer Variante zu ermitteln. Diese Prozedur sollte 
ohnehin nicht mehr verwendet werden, da die Definition von SIZE als 
Parameter neu auch Typen zulässt. 

Die Prozedur SHIFT verschiebt die Bitkombination des angegebenen 
Werts um soviele Stellen wie in n vermerkt. Ein positiver Wert von n 
verschiebt nach links, ein negativer Wert nach rechts. 


Die Prozedur CAST führt einen Typentransfer durch. Dabei wird der 
Typ der übergebenen Variable an dieser Stelle umgeschaltet. Der 
Ursprungstyp und der Zieltyp müssen beide den gleichen Speicherbedarf 
haben. Mit der CAST-Anweisung kann die Typenkontrolle umgangen 
werden, ihr Einsatz sollte daher möglichst beschränkt bleiben. 
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Das Laufzeitsystem bildet die Basis für jedes Programm, das mit 
M2Amiga entwickelt wurde. Es steht dem Programm während dessen 
Ausführung zur Seite und übernimmt im Fehlerfall die Kontrolle. Das 
Laufzeitsystem ist in mehrere Teilbereiche unterteilbar. Diese Teil¬ 
bereiche sind jedoch eng ineinander verflochten und deshalb in einem 
Modul realisiert. Dieses Modul heisst Arts (Amiga Runtime System, 
oder eben das Laufzeitsystem). 


Diese Teilbereiche können weiter in zwei Kategorien eingeteilt werden. 
Der ersten Kategorie werden alle Teilbereiche zugeteilt, die für den 
Programmablauf unerlässlich sind. Dies sind der Ein- und Ausgangs¬ 
code sowie die Compilerunterstützung. Die zweite Kategorie umfasst 
die restlichen Teilbereiche, nämlich die Behandlung der Laufzeitfehler 
und Unterbrechungen, die Abschluss- und Debugprozeduren. 

Ein- und Ausgangscode 

Ein- und Ausgangscode (Entry/Exit Code) bilden eine Klammer um das 
Anwenderprogramm und verbinden es mit dem Betriebssystem. 


Der Eingangscode vervollständigt die Laufzeitumgebung und 
initialisiert die Programmumgebung. In dieser Phase werden die 
folgenden Schritte ausgeführt: 


Übernahme der Programmargumente von der Betriebssystem¬ 
umgebung. 

Bei dieser Übernahme müssen die Unterschiede des Aufrufs von 
CLI und Workbench berücksichtigt werden. Die übernommenen 
Argumente werden in den globalen Variablen von Arts abgelegt 
und stehen dort dem Programm zur Verfügung. Das 
Bibliotheksmodul Arguments extrahiert aus diesen Variablen 
die angeforderten Werte. 


Öffnen aller verwendeten Amiga Bibliotheken. 


Dieses automatische Öffnen ist eine der Spezialitäten von 
M2Amiga. Alle vom Programm verwendeten Amiga 
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Bibliotheken werden hier eröffnet. In anderen Programmier¬ 
umgebungen auf dem Amiga ist dies Aufgabe des 
Programmierers. 


Dieses selbständige Öffnen bringt einige Vorteile: Einerseits 
kann weder das Öffnen, noch der Test auf dessen Erfolg 
vergessen werden und andererseits entspricht dies eher der 
Modula-2 Philosophie, dass Importiertes auf jeden Fall 
benützt werden kann, ohne Initialisierungs-Routinen aufrufen 
zu müssen. 


Installation der Prozeduren zur Behandlung von Laufzeit¬ 
fehlem. 


Damit Laufzeitfehler keine "Guru Meditation" auslösen, muss 
eine Prozedur zur Behandlung der Laufzeitfehler in der Task- 
Struktur installiert werden. Eine ausführliche Beschreibung 
dieser Prozedur folgt weiter unten. 

Die Behandlungsprozedur für Benutzerunterbrüche durch 
<CTRL-C> oder den Dos Befehl 'BREAK' wird ebenfalls hier 
installiert. 

Diese drei Schritte bereiten die Programmumgebung so vor, dass das 
Programm mm aufgerufen werden kann. Es ist sichergestellt, dass - im 
Normalfall - das Programm am Ende den Ausgangscode ausführen 
wird. 

Der Ausgangscode hat die Aufgabe alle Installationen des 
Eingangscodes rückgängig zu machen, die Amiga Bibliotheken zu 
schliessen und die Kontrolle an die aufrufende Instanz, also das CLI 
oder die Workbench, zurückzugeben. 

Compilerunterstützung 

Die Compilerunterstützung umfasst eine Reihe von Prozeduren und 
Funktionen, die von Programmen verwendet werden, obwohl sie nicht 
ausdrücklich importiert wurden. Diese Prozeduren sind zu komplex um 
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sie direkt bei jeder Verwendung in das Programm einzukodieren. 
Anstelle wird ein Aufruf in das Laufzeitsystem erzeugt. 


In unserem Fall beschränkt sich die direkte Compilerunterstützung auf 
Prozeduren zur Multiplikation und Division von 32-bit Datenwerten, 
sowie auf die Stapelüberlaufkontrolle und auf die Anzeige von 
Laufzeitfehlern. 


Für das folgende Programmstück wird demnach nicht direkt der 
Maschinencode der Multiplikation, sondern nur ein Prozeduraufruf in 
das Laufzeitsystem erzeugt. 

VAR 

x,y,z: LONGINT; 

BEGIN 
z:=x*y; 

(* 

* Dies entspricht exakt der Anweisung 

* z:=Arts.Muls32(x,y) ; 

*) 

END 

Die Behandlung von Laufzeitfehlern 

Viele Fehler in einem Quellentext können bereits zur Compilationszeit 
eines einzelnen Moduls ausfindig gemacht werden. Dabei sind nicht nur 
syntaktische Fehler wie vergessene Strichpunkte oder unausgeglichene 
Klammerpaare eingeschlossen. Darüber hinaus können etwa fehlende 
Deklarationen, typeninkompatible Vergleiche oder Zuweisungen, 
Namenskonflikte und dergleichen mehr festgestellt werden. Selbst eine 
Division mit der Konstanten 0 (Null) wird vom Compiler beanstandet. 

Leider gibt es noch einige Fehlersituationen die der Compiler nicht zur 
Compilierzeit erkennen kann. Solche Fehler treten zur Laufzeit des 
Programms auf, weshalb sie Laufzeitfehler genannt werden. 


Die Laufzeitfehler die bei einem M2Amiga Programm auftreten können, 
werden durch einen Fehlerzustand des Programmes erzeugt. Diese 
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Fehlerzustände werden entweder vom Prozessor oder vom Programm 
selbst erkannt. 

Auf dem Amiga dürfte wohl allen die Reaktion des Betriebssystems auf 
Laufzeitfehler bekannt sein: die "Guru Meditation". Diese erscheint 
dann, wenn das Betriebssystem durch einen fehlerhaften Task (Prozess) 
so empfindlich gestört wurde, dass als Lösung nur der Neustart des 
Systems bleibt. 

Eine Quelle für den (so hartnäckig) meditierenden Guru sind die Traps 
des Prozessors. Sobald der Prozessor einen ungültigen Zustand 
entdeckt, wird zur Fehlerbehandlung eine entsprechende Trap-Prozedur 
aufgerufen. Die Gründe für diese Prozessor-Traps sind unter anderem, 
die Division durch Null, ein Fehler bei der Adressierung einer Variablen 
oder ein Bereichsfehler, der durch die "CHK" Instruktion erkannt 
wurde. Da insbesondere die Instruktion "CHK" vom Compiler zur 
Bereichskontrolle erzeugt wird, muss zur Vermeidung der "Guru 
Meditation" die Behandlung der Traps vom Laufzeitsystem 
übernommen werden. 


Die Laufzeitfehler, die vom Programm erkannt werden, werden durch 
Aufrufe von Prozeduren des Laufzeitsystems angezeigt. Diese Aufrufe 
können einerseits vom Compiler selbständig erzeugt, oder vom 
Programmierer ins Programm eingefügt werden. Alle Möglichkeiten zur 
Erzeugung von Laufzeitfehlern durch den Programmierer sind aus der 
Modula-2 Anweisung "HALT” entstanden. Die Anweisung "HALT” ist 
dafür gedacht, um im Fehlerfall ohne Ausweg das Programm zu 
beenden. 


Neben der Anweisung "HALT" bietet das Laufzeitsystem dem 
Programmierer die Prozeduren Assert, BreakPoint, Error und Requester 
an. Diese sind im Abschnitt "Arts" im Bibliotheken-Kapitel genauer 
beschrieben. 

Unterbrechungsmöglichkeit 

Das Laufzeitsystem von M2Amiga bietet die Möglichkeit, Programme 
mittels <CTRL-C> fast jederzeit zu unterbrechen. Dieser Unterbruch ist 
unabhängig vom Programmablauf, kann also asynchron eintreffen. 
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Bei diesen asynchronen Unterbrüchen (Interrupts) muss einiges 
kontrolliert werden, um einen störungsfreien Abbruch zu ermöglichen. 
Diese Unterbrüche können nämlich willkürlich innerhalb einer 
i Systemfunktion ausgelöst werden. So dürfen keinerlei Unterbrüche 
während der Ausführung einer Dos-Funktion akzeptiert werden. Dies 
wird in Arts entsprechend abgefangen, d.h. der Unterbruch innerhalb 
einer Dos-Funktion wird nicht zu Ende geführt. Daneben gibt es weitere 
Situationen in denen ein Unterbruch fatale Folgen haben kann. Leider 
können diese nicht klar erkannt werden und führen deshalb zu 
Problemen beim Abbruchversuch. Im Normalfall wird nach einem 
Unterbruchswunsch (Tastenkombination <CTRL-C> oder BREAK- 
Befehl [->DOS]) getestet ob gerade eine Dos-Operation ausgeführt 
wird. Ist dies der Fall, wird der Unterbruch verwehrt und das 
Programm läuft unverändert weiter. Wird keine Dos-Operation 
i ausgeführt, erscheint der Abbruch-Requester. 

Die Abschlussprozeduren 

Der Modulrumpf eines Modula-2 Programms hat die Aufgabe, einen 
definierten Zustand zu schaffen. Oft werden dabei Betriebsmittel 
reserviert, beispielsweise wird Speicher alloziert. Beim Programmende 
besteht für das Modul keine Möglichkeit, die Betriebsmittel wieder 
freizugeben. Da das Betriebssystem des Amiga die Betriebsmittel zwar 
vergibt, aber nicht kontrolliert, bleiben diese auch nach Programmende 
reserviert. Daher musste ein Mechanismus gefunden werden, der die 
Freigabe nach Programmende ermöglicht. Dies gilt besonders für 
fehlerhafte Programme, bei denen der Programmabbruch an einer 
beliebigen Stelle möglich ist. 


Das Laufzeitsystem von Amiga Modula-2 bietet dafür das Konzept der 
Abschlussprozeduren (termination procedures). Ein Modul kann 
beliebige parameterlose Abschlussprozeduren installieren, welche dann 
im Fall eines Programmabbruchs oder am Programmende aufgerufen 
werden. 
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PROCEDURE TermProcedure(proc: PROC); 


Die Prozedur proc wird in die Liste der Abschlussprozeduren 
eingetragen. Am Programmende wird die zuletzt eingetragene 
Prozedur als erste aufgerufen. Damit ist gewährleistet, dass 
die Abschlussprozeduren tieferer Module nicht vor denen des 
Hauptprogrammes aufgerufen werden. 


PROCEDURE RemoveTermProc(proc: PROC); 


Die zuvor installierte Abschlussprozedur wird aus der Liste der 
Abschlussprozeduren wieder entfernt. Beim Programmende 
werden alle zum Programm gehörenden Abschlussprozeduren 
selbständig entfernt. 

Beispiel: MODULE Terminal; 

FROM Arts IMPORT Assert,TermProcedure; 

CONST window="CON:0/0/640/100/out 
VAR out:FileHandlePtr; 

PROCEDURE Cleanup; 

BEGIN 
Close(out) 

END Cleanup 

BEGIN (* Rumpf *) 
out:=Open(ADR(window),newFile); 

Assert(out#NIL,ADR("Öffnen-Fehler") ) ; 
TermProcedure(Cleanup) 

END Terminal. 

Bei der Initialisierung des Moduls Terminal wird ein Fenster 
eröffnet, auf das über out zugegriffen werden kann. Beim 
Programmende schliesst die als Abschlussprozedur übergebene Prozedur 
Cleanup das Fenster wieder. Nach diesem Mechanismus schliesst das 
Modul "FileSystem" alle offenen Dateien, und "Heap" sowie "Storage" 
deallozieren alle zuvor allozierten Speicherbereiche. Fehlerhafte 
Programme verhindern damit das Entstehen von "unsauberen" 
Situationen und ersparen einen Neustart des gesamten Systems. 
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Die Debugprozeduren 


Neben den Abschlussprozeduren können auch Prozeduren installiert 
werden, die bei der Fehlersuche eine Hilfe anbieten. Diese parameter¬ 
losen Prozeduren können beim Auftreten eines Laufzeitfehlers durch 
Anklicken des "debug" Gadgets aktiviert werden. 


PROCEDURE DebugProcedure(debugger: PROC); 


Die übergebene Prozedur wird als Debugger installiert. Falls 
ein Laufzeitfehler auftritt, wird diese Prozedur auf den Wunsch 
des Anwenders hin aufgerufen. Diese Prozedur sollte sich 
darauf beschränken den aktuellen Zustand von Variablen 
anzuzeigen. 


PROCEDURE RemoveDebugProc(debugger: PROC); 


RemoveDebugProc entfernt die Prozedur debugger wieder. 
Dies geschieht selbständig wenn das Programm abgebrochen 
oder beendet wird. 

Das folgende Beispiel zeigt wie mit BreakPoint und DebugProcedure der 
Ablauf des Programms kontrolliert werden kann. 

Beispiel: MODULE debuggerDemo; 

FROM SYSTEM IMPORT 
ADR; 

FROM Arts IMPORT 
BreakPoint,DebugProcedure; 

FROM InOut IMPORT 
Writelnt,WriteLn,WriteString; 

VAR 

x,y,z: INTEGER; 

PROCEDURE Debug; 

BEGIN 

WriteString( 

"Die Variablen haben folgende Werte:" 
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); 

WriteLn; 

WriteString("x = "); 

Writelnt (x, 5) ; 

WriteString(" y = "); 

Writelnt (y, 5) ; 

WriteString(" z = "); 

Writelnt(z,5); 

WriteLn 
END Debug; 

BEGIN 

DebugProcedure(Debug); 
x:=10; 

FOR y:=3 TO 0 BY -1 DO 
BreakPoint(ADR("VOR z:=x/y")); 
z:=x/y 
END 

END debuggerDemo. 


Das Konzept der Aktivierungsstufen (Leveikonzept) 

Neben den Prozeduraufrufen von Modula-2 wird in Arts das Konzept 
der Aktivierungsstufen eingeführt. Eine Aktivierungsstufe ist eine Er¬ 
weiterung des normalen Prozeduraufrufs. Als neue Stufe aktiviert, 
erhält eine Prozedur die Eigenschaften eines eigenständigen Program¬ 
mes. Dies umfasst vor allem die Behandlung von Fehlerzuständen und 
der Programmtermination. Alle Module die über allozierte Betriebs¬ 
mittel Buch führen, notieren sich auch die Stufe von der aus sie alloziert 
wurden. Die Betriebsmittel werden erst dann freigegeben wenn die 
entsprechende Aktivierungsstufe abgebaut wird. 


Dies ist die Grundlage für das Aufstarten von Programmen im 
M2Amiga Loader. Ein Programm das andere Programme aufruft, muss 
in seiner Einheit bestehen bleiben. Falls das aufgerufene Programm 
fehlerhaft abbricht, so müssen ebenfalls Betriebsmittel des aufgerufenen 
Programms wieder frei gegeben werden. 
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PROCEDURE Call(proc: PROC); 

Call ruft die angegebene Prozedur auf der nächsthöheren 
Aktivierungsstufe auf. 

PROCEDURE CurrentLevelO: INTEGER; 


CurrentLevel gibt die aktuell Aktivierungsstufe an. Diese wird 
zur Zuordnung von Betriebsmitteln zu den einzelnen 
Aktivierungsstufen verwendet. 


PROCEDURE Terminate(level: INTEGER); 


Terminate beendet die angegebene Aktivierungsstufe unmit¬ 
telbar. Falls die übergebene Stufenangabe nicht gültig ist oder 
Null ist, wird das gesamte Program abgebrochen. 

Beispiel: MODULE leveis; 

(* 

* Demonstration verschiedener 

* Aktivierungsstufen 
*) 

FROM Arts IMPORT 

Call, CurrentLevel, TermProcedure; 

FROM InOut IMPORT 
Writelnt,WriteLn,WriteString; 

PROCEDURE TermProcl; 

BEGIN 

WriteString( 

"Abschluss Prozedur 1: Stufe ist " 

) ; 

Writelnt(CurrentLevel(),3); 

WriteLn 
END TermProcl; 

PROCEDURE TermProc2; 

BEGIN 

WriteString( 

"Abschluss Prozedur 2: Stufe ist " 

) ; 

Writelnt (CurrentLevel 0,3); 
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WriteLn 
END TermProc2; 

PROCEDURE Level2; 

BEGIN 

TermProcedure(TermProc2); 

WriteString("Prozedur Level2: Stufe ist "); 
Writelnt(CurrentLevel(),3)/ 

WriteLn 

END 

BEGIN 

TermProcedure(TermProcl); 

WriteString("Hauptprogramm 1: Stufe ist "); 
Writelnt(CurrentLevel0,3); 

WriteLn; 

WriteString("Call(Level2)"); WriteLn; 

Call(Level2); 

WriteString("Hauptprogramm 2: Stufe ist "); 
Writelnt(CurrentLevel0,3); 

WriteLn; 

END levels. 


Fehlermeldungen des Laufzeitsystems 

Das Laufzeitsystem meldet verschiedene Ereignisse, die ein Weiter¬ 
laufen des Programms verunmöglichen, mittels eines Requesters dem 
Benutzer. Der Benutzer kann wählen, ob das Program abgebrochen 
oder "debuggt" werden soll. 


Prozessor Trap 


Im Programm wurde eine TRAP Instruktion [MC68000] angetroffen. 
Trap-Instruktionen werden vom Compiler nicht erzeugt (ausser TRAP 
14 und 15, siehe unten), aber sie können mit INLINE eingefügt werden. 
Der Fehler kann auch auftreten, wenn wegen einer nicht initialisierten 
Prozedurvariable eine Speicherstelle angesprungen wird, die keinen 
gültigen Code enthält. 


Eine Ausnahme bilden die TRAP Instruktionen TRAP 14 und TRAP 15. 
Diese werden vom Compiler für die Bereichs- bzw. Überlaufprüfung 
verwendet. Diese Trapinstruktionen führen deshalb nicht zu einer 
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Prozessor-Trap Meldung, sondern werden als "Bereichsfehler (TRAP 
14)" bzw. "Überlauffehler (TRAP 15)" dargestellt. 


A C (Benutzer Unterbrach) 


Dieser Requester erscheint, wenn das Programm mit CTRL-C oder dem 
Break-Befehl [DOS] unterbrochen wurde. Man hat zwei Möglichkeiten 
zur Wahl: Mit "abbrechen" kann man das Programm beenden; mit 
"weiter" kann das Programm fortgeführt werden. Letzteres ist nützlich, 
wenn man voreillig die CTRL-C Taste gedrückt hat. 

Fehler beim Öffnen der xxx.library 

Da das Laufzeitsystem alle Libraries selbstständig öffnet, ist es dem 
Benutzer unmöglich zu testen, ob die Library erfolgreich geöffnet 
werden konnte. Ist dies nicht der Fall, erscheint diese Fehlermeldung. 
Das Programm könnte ja ohnehin nicht ausgeführt werden. 


Programmierter Halt 


Tritt auf, wenn die Modula-2 Anweisung "HALT" abgearbeitet wurde. 


Ungültiger Case-Index 


Diese Fehlermeldung erhalten Sie dann, wenn der Wert des getesteten 
Ausdrucks zwischen dem kleinsten und grössten CASE-Label ist, aber 
kein entsprechendes Label vorhanden ist. 


Beispiel: i: =2; 

CASE i OF (* getesteter Ausdruck: i *) 

| 1: Write('1'); (* kleinstel Label: 1 *) 

| 3: Write('3'); (* grösstes Label: 3 *) 

END; 


Selbstverständlich verunmöglicht ein radikales Verwenden von ELSE- 
Klauseln (innerhalb CASE) diesen Laufzeitfehler. Dies erschwert jedoch 
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die Fehlersuche, da unvorhergesehene (unmögliche?) Fälle nicht 
unmittelbar auffallen. 

Falls der Wert des getesteten Ausdrucks nicht zwischen dem kleinsten 
und grössten CASE-Label liegt, wird das Programm mit einem 
Bereichsfehler abgebrochen. 

Funktion ohne RETURN beendet 

Funktionsprozeduren müssen durch eine RETURN-Anweisung beendet 
werden (bei Prozeduren ist diese nicht zwingend). Ist das Ende einer 
Funktionsprozedur (END-Anweisung) erreicht, ohne dass eine 
RETURN-Anweisung ausgeführt wurde, so erscheint dieser Fehler. 
Setzen Sie eine RETURN-Anweisung ein, um ihn zu beheben. 

Stapelüberlauf 

Jeder Prozeduraufruf belegt einen gewissen Platz auf dem Stapel 
(Stack). Dort sind Rücksprungadresse, Verweis auf die aufrufende 
Prozedur, Parameter und lokale Variablen abgelegt. Jedem Task ist nur 
ein begrenzter Stapelbereich zugeordnet. Ist der verbleibende Stapel¬ 
bereich zu klein, dann kann keine weitere Prozedur aufgerufen werden, 
was durch diesen Laufzeitfehler angezeigt wird. Vergewissern Sie sich, 
dass das Programm fehlerfrei ist (insbesondere bei Rekursion) und 
vergrössem Sie nötigenfalls den Stapelbereich. 

Die Anfangsgrösse des Stapelbereichs kann im CLI mit dem STACK- 
Befehl [DOS] eingestellt werden. In der Workbench ist die 
Anfangsgrösse für jedes Programm (Tool) in dessen .info Datei 
abgelegt. Diese Grösse kann angezeigt und geändert werden mit der 
Funktion "Info" des Workbench Menus. 

Ungültiger Aufruf von Arts.Call: 


Arts kann maximal 8 Levels verarbeiten. Ein Aufruf von Call auf dem 
8. Level bewirkt diesen Fehler. 
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Adress-Fehler: 


Ein Adress-Fehler wird direkt durch den Prozessor dann ausgelöst, 
wenn dieser auf ein Wort, ein langes Wort (32 Bit) oder eine Instruktion 
an einer ungeraden Adresse (Byte-Adressen!) zugreifen will. Dieser 
Fehler bedeutet meist, dass auf nicht-initialisierte Zeiger oder Pro¬ 
zedurvariablen zugegriffen wurde. 


Ungültige Instruktion: 


Als ungültige Instruktion wird jedes Wort-Bitmuster bezeichnet, das 
nicht dem Bitmuster des ersten Worts eines gültigen MC68000-Befehl 
entspricht. Davon gibt es eine Ausnahme: Das Wort 4AFCH 
(0100101011111100) entspricht dem "gültigen" Befehl "ILLEGAL". Es ist 
das einzige Bitmuster, das auch nach zukünftigen Erweiterungen der 
MC68000-Familie "ILLEGAL" bleibt. Dieser Fehler, bedeutet meist, dass 
auf nicht-initialisierte Zeiger oder Prozedurvariablen zugegriffen 
wurde. 


Division durch Null: 


Zahlen beliebigen Typs können laut Regeln der Mathematik nicht durch 
Null (0) dividiert werden. Wird in einer Anweisung versucht, durch 0 zu 
dividieren, kann das Programm nicht weiter ausgeführt werden. Gleich 
verhält es sich mit der Modulo-Operation (Rest), deren Wert sich aus 
dem Rest der vorangehenden Division ergibt. 
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Beispiel: var 

i,j:INTEGER; 
r,s:REAL; 

i:=0; r:=0.0; 

(* 

* Folgende Anweisungen führen zum 

* beschriebenen Laufzeitfehler 
*) 

j:=j DIV i; 

j:=j / i; 

j:=j MOD i; 
j:= j REM i; 
s := s / r; 

Das Beispiel gilt selbstverständlich auch für die anderen numerischen 
Typen. 


Bereichsfehlen 


Bei jeder Zuweisung an einen Unterbereich, bei jedem Zugriff auf ein 
Feldelement (ARRAY) und vor der Ausführung einer CASE-Anweisung 
findet eine Prüfung der unteren und der oberen Schranke statt. Bei einer 
Zuweisung an einen Unterbereich wird geprüft, ob der resultierende 
Wert in die Zielvariable gespeichert werden kann. Bei einem Zugriff auf 
ein Feldelement wird geprüft, ob überhaupt ein Element mit dem 
ausgewerteten Indexausdruck existiert (deklariert ist). Bei einer CASE- 
Anweisung wird der berechnete Ausdruck als Index in eine 
Sprungtabelle verwendet, die für jeden der CASE-Label die Adresse der 
zugehörigen Anweisungen enthält. Es muss also wie bei einem Zugriff 
auf ein Feldelement überprüft werden ob dies ein gültiger Index ist. 


Ist die untere Schranke Null (0) und die obere Schranke kleiner als 2 A 15 
(32768), geschieht diese Überprüfung mit der MC68000-Instruktion 
"CHK". Die erscheinende Fehlermeldung heisst dann "Bereichsfehler 
(CHK)". Andernfalls ist die Bereichsprüfung komplexer: Nach erfolgter 
Prüfung mithilfe von einer oder zwei Vergleichsinstruktionen wird im 
Fehlerfall (Test des Condition Code Registers) die MC68000-Instruktion 
"TRAP #14" ausgeführt, wie es auch in der Fehlermeldung 
("Bereichsfehler (TRAP 14)") vermerkt ist. Für den Anwender ist diese 
Unterscheidung allerdings von untergeordneter Bedeutung. 
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st die untere Schranke Null (0) und die obere Schranke kleiner als 2 A 15 
(32768), geschieht diese Überprüfung mit der MC68000-Instruktion 
"CHK". Die erscheinende Fehlermeldung heisst dann "Bereichsfehler 
(CHK)". Andernfalls ist die Bereichsprüfung komplexer: Nach erfolgter 
Prüfung mithilfe von einer oder zwei Vergleichsinstruktionen wird im 
Fehlerfall (Test des Condition Code Registers) die MC68000-Instruktion 
"TRAP #14" ausgeführt, wie es auch in der Fehlermeldung 
("Bereichsfehler (TRAP 14)") vermerkt ist. Für den Anwender ist diese 
Unterscheidung allerdings von untergeordneter Bedeutung. 


Beispiel: var 

a: ARRAY [0..5] OF INTEGER; 
sub: [0..10]; 
i: INTEGER; 


i := 11; 


sub := i; 

<* 

Bereichsfehler. 

da 

i>MAX(sub) 

*> 

sub := -i; 

<* 

Bereichsfehler. 

da 

i<MIN(sub) 

*> 

i : = a [ i ] ; 

<* 

Bereichsfehler. 

da 

kein a[ll] 

*> 


Überlauf: 


Ist das Resultat einer Rechenoperation grösser als es der Maximalwert 
der beteiligten Typen erlaubt, so tritt Überlauf ein. Die entsprechende 
Unterschreitung des Minimalwertes wird Unterlauf genannt. Auf 
Prozessorebene wird Überlauf und Unterlauf hingegen nicht unter¬ 
schieden, weshalb hier Überlauf hier auch Unterlauf beinhalten soll. 

Beispiel: var 

i,j,k: INTEGER; 

i:=30000; 
j:=20000; 
k:=-30000; 

IF (i+j)<0 THEN ... END; (* Überlauf *) 

IF (k-j)>0 THEN ... END; (* Unterlauf *) 

Üblicherweise wird mit der TRAPV-Anweisung auf Überlauf geprüft. 
Dies ist aber bei einer 16 Bit Multiplikation nicht möglich. Die Über- 
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laufsprüfung erfolgt hier durch eine explizite Prüfung. Im Fehlerfall er¬ 
folgt ein Aufruf der TRAP 15 Instruktion. Im Requester wird angegeben 
ob eine TRAPV oder TRAP 15 Instruktion ausgeführt wurde. 
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Dieses Kapitel richtet sich vor allem an den fortgeschritteneren Be¬ 
nutzer von Amiga-Modula-2. Wenn Sie erst in die Programmier¬ 
sprache Modula-2 einsteigen, können Sie dieses Kapitel überspringen. 
Wollen Sie Details von Amiga-Modula-2 wissen, so sind Sie hier rich¬ 
tig- 

Von M2Amiga verwendete Dateiformate 

M2Amiga verwendet 3 spezielle Dateiformate: Objektdatei, Referenz- 
und Symboldatei sowie Fehlerdatei. Diese drei Formate werden nun 
ausführlich beschrieben. 

Die Dateiformate werden mit Hilfe einer EBNF-ähnlichen Sprache 
beschrieben. EBNF wird häufig zur Beschreibung der Syntax einer 
Programmiersprache verwendet (z.B. [PIM3]). Sie ist aber auch 
geeignet, das Format einer Datei zu beschreiben. Allerdings sind die 
Terminalsymbole im Falle einer Datei keine Worte (wie z.B. IF in 
Modula-2) sondern entweder Konstanten oder Variablen, die einen 
bestimmten Typ haben. Aus diesem Grund beschreiben wir 
Terminalsymbole mit Hilfe von Modula-2 Typen und Konstanten. Hier 
die Elemente unserer "EBNF": 


A=B C. Dies bezeichnet eine Regel, die besagt, dass A durch 
die Folge BC ersetzt werden soll. 

A=B IC. A soll durch B oder C ersetzt werden. 

A=[B]. A soll durch B ersetzt oder weggelassen werden. 

A={B}. A soll durch eine Folge von 0, 1, 2 oder mehrere B 
ersetzt werden. 

A="ARRAY [0..31] OF CHAR" 

A besteht aus 32 Buchstaben. 
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A="INTEGER(7)". 

A besteht aus der Konstanten 7, wobei in der Datei 
soviel Platz wie für einen INTEGER verwendet wird 
(2 Byte). 

Der Punktam Ende der Regel markiert deren Ende. Alles was nach 
dem Punkt folgt ist Kommentar. Die oben beschriebenen Regeln können 
zu komplexeren Regeln zusammengefasst werden, z.B. "A=B CID E." 
Dabei bindet " I" schwächer als " ". "A=B CID E." bedeutet, dass "A" 
entweder durch "B C" oder durch "D E" ersetzt werden darf. Dies kann 
mit Klammern umgangen werden: "A=B (CID) E.” Diese Regel besagt, 
dass "A" durch "B C E" oder durch "B D E" ersetzt werden darf. 


Eine vollständige Dateibeschreibung könnte dann so aussehen: 


Datei 

= 

ID NumBlocks {Block} [Name]. 

<1> 

ID 

= 

"LONGINT(17)". 

<2> 

NumBlocks 

= 

"INTEGER". Gibt die Anzahl der folgenden 
Blöcke. 

<3> 

Block 

= 

Size (Codeld 1 Datald) {Word}. 

<4> 

Size 

= 

"LONGINT”. Grösse des folgenden Blocks ohne 
die Codeld bzw. Datald. <5> 

Codeld 

= 

"INTEGER(l)". 

<6> 

Datald 

= 

”INTEGER(2)". 

<7> 

Word 

= 

"INTEGER". 

<8> 

Name 

= 

"ARRAY [0..7] OF CHAR". 

<9> 


Die Bedeutung dieser Zeilen im einzelnen: 

<1> Die Datei besteht aus einer ID gefolgt von einer Zahl 

und beliebig vielen (aber auch 0) Blöcken und evtl, 
einem Namen. 

<2> Die Identifikation der Datei hat den Wert 17, und wird 

in 4 Byte dargestellt. 
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<3> 


Die Zahl der Blöcke ist durch zwei Byte gegeben. Mit 
dem Kommentar wird veranschaulicht, was die EBNF 
alleine nicht aufzeigen kann; nämlich dass zwischen 
der Zahl "NumBlocks" und der Anzahl von 
darauffolgenden Blöcken eine Beziehung besteht. 
NumBlocks gibt an, wieviele Blöcke folgen. 

<4> Ein Block besteht aus einer Grössenangabe und einer 

Identifikation, gefolgt von beliebig vielen Worten. 

<5> Die Grösse des Blocks wird durch vier Byte 

angegeben. Auch hier wieder ein Kommentar, der 
genauer die Beziehung zwischen Size und den später 
) folgenden Worten erklärt. 

< 6 > Die Codeld belegt zwei Byte, und hat den Wert 1. 

<7> Die Datald belegt ebenfalls zwei Byte und hat den 

Wert 2. 

<8> Das Word besteht aus zwei Byte beliebigen Inhalts. 

<9> Der Name besteht aus 8 Zeichen (Byte). 

Der folgende Hexdump stellt eine nach obigem Schema gültige Datei 
dar. Diese enthält die ID. Darauf folgt die Angabe, dass genau ein Block 
) vorhanden ist. Dieser Block hat die Grösse 4. Es ist ein Datenblock und 
enthält die vier Byte IE 84 95 OA. Danach folgt noch der Name "Test". 

00 00 00 11 00 01 00 00 00 04 00 02 IE 84 95 0A 

53 65 74 73 00 00 00 00 

Nach dieser Erklärung des Prinzips der Datenbeschreibung, folgen nun 
die Dateitypen-Beschreibungen. 
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Objektdatei 


Dieser Dateityp wird vom Compiler produziert und von Linker als Ein¬ 
gabedatei verwendet. In der Objektdatei wird der vom Compiler für ein 
Modul produzierte Code abgelegt. Der Linker erwartet die zu linkenden 
Moduln in diesem Format. Im Gegensatz zum Compiler kann der Linker 
auch Dateien verarbeiten, die mehr als nur ein Modul beinhalten. 


Module 

— 

{HeaderBlock ConstBlock ImportBlock 
CodeBlock). 

HeaderBlock 

= 

CODEFILE Moduleld CodeSize DataSize 
ConstSize Procs Mods. 

ImportBlock 

= 

{Moduleld 1 Libraryld) {Empty}. 

ConstBlock 

= 

{ConstWord} {Procjmp}. 

CodeBlock 

= 

{CodeWord}. 

Moduleld 

= 

(MODINOIMP) Name Key. 

Libraryld 

= 

LIB Name PadWord LibVersion. 

Empty 

= 

NONE Name Key. Name und Key werden 
ignoriert 

Procjmp 

= 

JMP ProcPtr. 

Name 

= 

"ARRAY [0..31] OF CHAR". 

Key 

= 

"ARRAY [0..2] OF INTEGER". 

LibVersion 

= 

"LONGINT". 

ProcPtr 

= 

"LONGINT". 

CodeSize 

= 

"LONGINT". Die Länge des Code-Blocks in Byte. 

DataSize 

= 

"LONGINT". 

ConstSize 

= 

"LONGINT". Die Länge des "{ConstWord}"-Teil 
des "ConstBlock" in Byte. 

Procs 

= 

"LONGINT". Die Zahl der Prozeduren in 
"{Procedurejmp}" des "ConstBlock". 

Mods 


"LONGINT". Die Zahl der Moduln in 
"ImportBlock", inklusive den Leereinträgen 
("Empty"). 

ConstWord 

= 

"INTEGER". 

CodeWord 

= 

"INTEGER". 

PadWord 

= 

"INTEGER(O)". 
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CODEFILE 

NONE 

MOD 

LIB 

NOIMP 

JMP 


"LONGINT(l)". 

"INTEGER(O)". 

"INTEGER(l)". 

"INTEGER(2)". 

"INTEGER(3)'\ 

”INTEGER(4EF9H)”. MC68000 Jump Befehl. 


Die Objektdatei besteht aus vier Blöcken. Der Headerblock enthält die 
Identifikation des Moduls sowie die Grössen der verschiedenen Blöcke. 
Mit dieser Information kann der Loader schon wissen, ob das richtige 
Modul vorliegt (Moduleld) und wieviel Speicherplatz für den Code- 
und Datenteil benötigt wird. Die Grösse des Code-Teils berechnet sich 
aus 


Grössecode-Teii = ConstSize+6*Procs+4+4*Mods+CodeSize. 

Hierin erkennt man wieder die Struktur des Code-Teils. An der niedrig¬ 
sten Adresse befinden sich die konstanten Zeichenketten, danach folgt 
die Prozedur-Sprungtabelle, die Sprungbefehle zu allen exportierten 
Prozeduren enthält (je 6 Byte lang). Danach folgt der Zeiger auf die 
eigenen globalen Daten (4 Byte) und die Zeiger auf die importierten 
Moduln (je 4 Byte). Schliesslich folgt der eigentliche Code. 

Der Linker produziert aus dieser Objektdatei "Hunks" (—> [DOS]), die in 
der gebundenen Datei abgelegt werden. Ein "bss_hunk” enthält die 
Grösse der globalen Daten und ein "data_hunk" den aufbereiteten 
Codeteil mit der nötigen Relozierungs-Information, um die relativen 
Adressen der Prozedur-Sprungtabelle in absolute Adressen umzuwan¬ 
deln und die Modulzeiger richtig zu initialisieren. Weil der Amiga- 
Loader nur in der Lage ist, Adressen relativ zu einem Hunkanfang zu 
relozieren, sind die Prozeduradressen in der Objektdatei relativ zum 
Anfang des Codeteils abgelegt. 

Noch eine Bemerkung zum Importblock. Dieser kann bis zu drei Leer- 
Einträge enthalten. Diese sind reserviert für die Moduln MathReal, 
MathFFP und MathlEEEDoubBas. Diese Moduln werden vom 
Compiler automatisch "importiert", wenn Berechnungen mit FFP-, 
REAL- oder LONGREAL-Zahlen dies erfordern. Dieser "Import" erfolgt 
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aber erst, nachdem der Compiler schon Code generiert hat, nämlich 
beim ersten Auftreten einer solchen Operation. Da die Zugriffe auf die 
konstanten Zeichenketten (zur Laufzeit) relativ zum Programmzähler 
(PC) erfolgen, muss die Grösse der Modulliste - die sich ja zwischen 
Code und Konstanten befindet - vom Beginn der Kompilation an 
festgelegt sein. Aus diesem Grund wird der Platz für diese Moduln auf 
alle Fälle reserviert. 


Symbol-/Referenzdatei 


Die Symboldatei wird vom Compiler erzeugt und auch von diesem 
verwendet. Sie enthält in codierter Form alle wichtigen Angaben eines 
Definitionsmoduls. 


Die Referenzdatei wird vom Compiler erzeugt und vom Debugger 
verwendet. Sie enthält die vom Debugger benötigten Informationen 
über die Lage der Variablen im Speicher, sowie die Positionen der 
Modula-2-Anweisungen innerhalb des Codes. 


ReferenceFile 


REFFILE ModAnchor {ModAnchor} 

{ObjList ModTag 1 ObjList ProcTag} ObjList 
RefTag. 

ObjList 

— 

{Structure 1 Component 1 Object 1 Linkage 1 
PC-Block}. 

Structure 

= 

Enum 1 Range 1 Pointer 1 Set 1 ProcTyp 1 
FuncTyp 1 Array 1 DynArray 1 Record 1 Opaque. 

Component 

= 

ParRef 1 Par 1 Field. 

Object 

= 

VarRef 1 Var 1 Constant 1 Type 1 Procedure 1 
Function 1 Module 1 Code. 

PC-Block 

= 

PCPos SourcePos. 

ModAnchor 

“ 

BYTE(OH) key name modmode [libname]. 
"libname" erscheint wenn "modmode" den Wert 
"LIB" hat. 

ModTag 

= 

BYTE(IH) ModNo. 

ProcTag 

= 

BYTE(2H) ProcNo. 
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RefTag 


Linkage 


Enum 


Range 


Pointer 

Set 

ProcTyp 

FuncTyp 

Array 


DynArray 

Record 

Opaque 

BPointer 


BYTE(3H) adr pno. 

adr = Adresse, von der an die Variablen des 
Implementationsmoduls alloziert werden dürfen, 
pno = Zahl der deklarierten Prozeduren. 
BYTE(4H) StrRef BaseRef. 

Der früher deklarierte Zeigertyp StrRef soll auf 
den Typ BaseRef zeigen. Wird benötigt, wenn ein 
Zeigertyp vor dem Basistyp deklariert wird. 
BYTE(IOH) size NoConst. 
size = Zahl der Byte, die für eine Variable von 
diesem Typ benötigt wird (Dies gilt auch für die 
nächsten 9 Zeilen). 

NoConst = Anzahl Elemente in diesem 
Aufzählungstyp. 

BYTE(llH) size BaseRef min max sign. 

BaseRef = Grundtyp dieses Unterbereichtyps, 
min = Untere Bereichsgrenze, 
max = Obere Bereichsgrenze, 
sign = Gibt an, ob es sich um einen 
vorzeichenbehafteten Typ handelt oder nicht. 
BYTE(12H) size. 

BYTEQ3H) size BaseRef. 

BaseRef = Elementtyp dieses Mengentyps. 
BYTE(14H) size. 

BYTE(15H) size ResRef. 

ResRef = Resultatstyp dieser Prozedur. 
BYTE(16H) size ElemRef IndexRef. 

ElemRef = Elementtyp dieses Arrays. 

IndexRef = Indextyp dieses Arrays. 

BYTE(17H) size ElemRef. 

ElemRef = Elementtyp dieses Arrays. 

BYTE(18H) size. 

BYTE(19H) size. 

BYTE(IAH) size. 
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ParRef 


Par 

Field 

VarRef 

Var 

Constant 

String 

Type 


= BYTE(20H) StrRef parmode name. 

StrRef = Typ des Parameters. 

parmode = 0 falls es sich um einen Parameter 

handelt, der auf dem Stack übergeben wird, 1..17 f - 

falls es sich um einen Parameter handelt der in 

einem Register übergeben wird (1..8 = D0..D7, 

9..17 = A0..A7). 

name = Name des Parameters. Dieser Name ist 
leer, wenn das Definitionsmodul mit der Option 
N- oder M- compiliert wurde, oder falls es sich 
um ein Schnittstellen-Modul handelt. 

= BYTE(21H) StrRef parmode name. 
wie ParRef. 

= BYTE(22H) StrRef offset name. 

StrRef = Typ dieses Record-Feldes ( 

offset = Adresse des Feldes relativ zum Anfang 
des Records. 

name = Name des Feldes. 

= BYTE(30H) StrRef level address varmode name 
exported. 

StrRef = Typ dieser Variable. 

level = Schachtelungstiefe der Prozedur, in der 

diese Variable deklariert wurde. 0=global. 

address = Adresse dieser Variable. 

varmode = siehe parmode bei ParRef. 

name = Name der Variable. 

exported = gibt an, ob Variable exportiert wird. 

= BYTE(31H) StrRef level address varmode name 
exported. 

siehe VarRef ( 

= BYTE(32H) StrRef ModRef value name exported. 
StrRef, name und exported siehe VarRef. 

ModRef = Nummer des Moduls, in der diese 
Konstante deklariert wurde, 
value = Wert der Konstante. 

= BYTE(33H) StrRef String name exported. 

String = Text dieser Stringkonstante. 

= BYTE(34H) StrRef ModRef name exported. 
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Procedure 


Function 


Module 

Code 

CodeFunc 

key 

name 

String 


BYTE(35H) ProcNo level address size registers 
name exported. 

ProcNo = Nummer der Prozedur, 
level = Schachtelungstiefe der Prozedur 
(0=global). 

address = Adresse der Prozedur, 
size = Grösse der lokalen Variablen, 
registers = BITSET, der alle als Parameter 
verwendeten Register enthält. 

BYTE(36H) ResRef ProcNo level address size 
registers name exported. 

ResRef = Resultattyp der Funktion, sonst wie 
Procedure. 

BYTE(37H) ModNo name exported. 

ModNo = Nummer dieses lokalen Moduls. 
BYTE(38H) cnum name exported. 
cnum = Offset dieser Procedure (CODE). 
BYTE09H) ResRef cnum name exported. 
ResRef = Resultattyp der Funktion. 

"ARRAY [0..2] OF INTEGER”. 

String. 

length {char}. 


Alle oben nicht erwähnten Symbole sind Zahlen, die nach einem 
speziellen Verfahren kodiert werden. Dabei richtet sich die Zahl der 
verwendeten Byte nicht nach der maximalen Grösse des Wertes, 
sondern nach dem effektiven Wert. 


Zahlen im Bereich -32 bis 31 werden in einem Byte kodiert. Dazu werden 
nur 6 Bit benötigt. Die höchstwertigen zwei Bit werden nicht benötigt. 
Sie erhalten den Wert 00 um anzugeben, dass die Zahl in einem Byte 
kodiert wurde. 


Zahlen im Bereich -16384..-257 und 256.. 16383 werden in zwei Byte 
kodiert. Dazu werden nur 14 Bit benötigt, und die zwei höchstwertigen 
Bit geben wiederum das Format an. Sie erhalten den Wert 01 um 
anzugeben, dass es sich von eine Zahl handelt, die in zwei Byte abgelegt 
ist. 
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Zahlen, die 17 bis 22 Bit zu ihrer Darstellung benötigen, werden in drei 
Byte abgelegt, wobei die höchstwertigen Bit den Wert 10 (Dualdarstel¬ 
lung) haben. 


Für alle anderen Zahlen wird im höchstwertigen Byte nur die Länge (in 
Byte) der Zahl abgelegt. Die Länge wird in den 6 niederwertigsten Bit 
des höchstwertigen Byte abgelegt. Die zwei höchstwertigen Bit enthal¬ 
ten den Wert 11, um diese Codierung zu identifizieren. Auf dieses Byte 
folgen soviele Byte, wie im ersten Byte angegeben wird. 


Einige Beispiele: 


Zahl 

Codierung (Hexadezimal 

und Binär) 

5 

05 

0000 

0101 


-5 

3B 

0011 

1011 


40 

C128 

1100 

0001 0010 

1000 

300 

412C 

0100 

0001 0010 

1100 

-300 

7ED4 

0111 

1110 1101 

0100 

65236 

C20ED4 

1100 

0010 0000 

1110 1101 0100 


PCPos stellt davon eine Ausnahme von dieser Kodierung dar. Zahlen 
die sich im Bereich -32.31 befinden werden nicht in einem einzigen Byte 
kodiert, sondern in 2 Byte, z.B 3 als 003. Auf diese Weise ist es möglich 
einen PC-Block von den anderen Elementen der ObjList zu unter¬ 
scheiden, ohne dass ein zusätzliches Byte vor dem PC-Block stehen 
muss. 


Alle Namen, die mit "Ref" enden, stellen Referenzen auf Strukturen dar. 
Die Strukturen werden durchnumeriert, wobei die Werte 1 bis 22 
vordefinierten Typen entsprechen. Alle in der Symboldatei selbst 
auftretenden Strukturdefinitionen werden vom Wert 32 an aufsteigend 
durchnumeriert. Falls eine Referenz auf diese Struktur benötigt wird, ist 
in der Symboldatei die Nummer der Struktur abgelegt. Beim Einlesen 
der Datei wird daraus ein Zeiger auf die entsprechende Struktur 
erzeugt. Die vordefinierten Strukturen sind: 
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1 Undefiniert 

2 BOOLEAN 

3 CHAR 

4 INTEGER 

5 CARDINAL 

6 LONGINT 

7 REAL 

8 LONGREAL 

9 BITSET 

10 PROC 

11 String 


12 ADDRESS 

13 BYTE 

14 WORD 

15 LONGCARD 

16 Universallnteger 

17 UniversalReal 

18 FFP 

19 LONGSET 

20 ShortCard 

21 ShortInt 

22 BPTR 


Die Strukturen 1,11,16,17,20 und 21 werden nur intern gebraucht und 
stellen keine vordefinierten Typen dar. 


Die Symboldatei stellt die Symboltabelle des Compilers dar. In ihr sind 
alle deklarierten Objekte (Variablen, Typen, Prozeduren etc.) und deren 
Strukturen (ARRAY, RECORD etc.) abgelegt. Die gewählte Darstellung 
erlaubt eine effiziente Rekoinstruktion der Symboltabelle beim Einlesen 
der Symboldatei. 


Beispiel 


Das folgende Modul wird mit dem Compiler übersetzt und erzeugt eine 
Symboldatei. 


DEFINITION MODULE x; 

TYPE 

Enum=(rot,gelb,gruen) ; 
Set=SET OF [0..30]; 
Array=ARRAY Enum OF Set; 

END x. 


0000: 00000002 Reffile 
0004: 0000 ModAnchor 
0005: 0F7A 0448 0BB5 Key 

000B: 02 78 Name "x" 

000D: 01 ModMode 
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OOOE: 10 enum 

000F: 01 Size 

0010: 03 NoConst 

0011: 32 Const 

0012: C120 StrRef 

0014: 00 ModRef 

0015: 00 value 

0016: 04 72 6F 74 Name "rot" 

001A: 00 exported 

001B: 32 Const 
001C: C120 StrRef 

001E: 00 ModRef 

001F: 01 value 

0020: 05 67 65 6C 62 Name "gelb" 

0025: 00 exported 

0026: 32 Const 

0027: C120 StrRef 

0029: 00 ModRef 

002A: 02 value 

002B: 06 67 72 75 65 6E Name "gruen 

0031: 00 exported 

0032: 34 Type 

0033: C120 StrRef 

0035: 00 ModRef 

0036: 05 45 6E 75 6D Name "Enum" 

003B: 00 exported 

003C: 11 ränge 

003D: 01 Size 

003E: 10 BaseRef 

003F: 00 min 

0040: IE max 

0041: 00 sign 

0042: 13 set 

0043: 04 Size 

0044: C121 BaseRef 

0046: 34 Type 

0047: C122 StrRef 

0049: 00 ModRef 

004A: 04 53 65 74 Name "Set" 

004E: 00 exported 

004F: 11 ränge 
0050: 00 Size 

0051: C120 BaseRef 

0053: 00 min 

0054: 02 max 

0055: 00 sign 

0056: 16 Array 
0057: 0C Size 
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0058: C122 ElemRef 

005A: C123 IndexRef 

005C: 34 Type 
005D: C124 StrRef 

005F: 00 ModRef 

0060: 06 41 72 72 61 79 Name "Array" 

0066: 00 exported 

0067: 0001 ModTag 
0068: 00 ModNo 

0069: 0003 RefTag 
006A: 3E adr 

006B: 00 pno 

0000 Identifikation als Symboldatei 

0004 Dieses Modul hat den Namen x und ist ein normales 

Definitionsmodul. 

000E Diese Struktur bezeichnet einen Aufzählungstyp. Als 

erste Struktur in der Datei erhält sie die Nummer 32. 
Der Aufzählungstyp enthält drei Elemente und 
benötigt 1 Byte Speicherplatz. 

0011 Diese Konstante hat als StrRef den Wert 020. Dies 

ist die kodierte Darstellung von 32. Dies bedeutet, 
dass diese Konstante zum Typ 32 gehört, dem soeben 
gefundenen Aufzählungstyp. Die Konstante ist in 
diesem Modul vereinbart worden, hat den Namen 
"rot" und den Wert 0. exported wird nicht verwendet, 
deshalb steht dort der Wert 0. 

001B,0026 Konstanten "gelb" und "gruen" des Aufzählungtyps. 

0032 Das Objekt des Aufzählungtyps, er heisst Enum und 

ist in diesem Modul deklariert worden. 


) 
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003C 

0042 

0046 

004F 

0056 

005C 

0067 

0069 


Diese Struktur bezeichnet einen Unterbereichstyp. Als 
zweite Struktur in der Datei erhält sie die Nummer 
33. Dieser Typ braucht 1 Byte, hat als Basistyp 
Universalinteger, als untere Grenze den Wert 0 und 
als obere Grenze den Wert 30. Dieser Typ hat kein 
Vorzeichen, er ist also mit Variablen vom Typ 
CARDINAL und LONGCARD kompatibel, nicht aber 
mit Variablen vom Typ INTEGER oder LONGINT. 


Diese Struktur (Nummer 34) bezeichnet einen 
Mengentyp der als Elementtyp den vorher deklarier¬ 
ten Unterbereichstyp besitzt. 4 Byte sind nötig für 
dessen Darstellung. 


Das Objekt des Mengentyps. Der Typ ist in diesem 
Modul deklariert worden und hat den Namen "Set". 


Struktur 35: Unterbereichstyp mit Basistyp 32 (der 
Aufzählungstyp), unterer Grenze 0 und oberer 
Grenze 2. 


Struktur 36: Arraytyp, Grösse 12 Byte. Hat Struktur 34 
(Menge) als Elementtyp und Struktur 35 
(Unterbereich des Aufzählungtyps) als Indextyp. 


Objekt des Arraytyps: in diesem Modul deklariert, hat 
Namen "Array". 

Das ModTag markiert das Ende des Moduls 0. 

Das RefTag markiert das Ende des Definitions¬ 
moduls. Da in diesem Modul keine Variablen 
deklariert wurden, ist die Adresse, von der an 
Variablen im Implementationsmodul alloziert werden 
-2. Die Zahl der deklarierten Prozeduren ist 0. 
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Ein Typ-Objekt existiert immer dann, wenn einer Struktur in einer 
Typendefinition ein Name gegeben wurde. Der Unterbereichstyp der in 
der Mengendefinition deklariert wurde, hat deshalb kein Typ-Objekt. 

Der Unterbereichstyp mit der Nummer 35 wurde vom Compiler er¬ 
zeugt, weil der Indextyp intern immer ein Unterbereichstyp sein muss. 

Fehlerdatei 

Die Fehlerdatei wird vom Compiler beim Übersetzen eines fehlerhaften 
Programms erzeugt. Sie enthält die Fehlermeldungen in kodierter 
Form. m2emacs und m2error sind in der Lage diese Fehlermeldungen 
mit Hilfe der Datei M2:Fehler-Meldungen in deutschen Text 
umzuwandeln. Das Format der Fehlerdatei ist: 


ErrorFile 

= 

ERRFILE {Error}. 

Error 

= 

ErrorPos {ErrorPart}. 

ErrorPos 

= 

ERR SourcePos. 

ErrorPart 

= 

ErrorNum 1 String. 

ErrorNum 

= 

"INTEGER". Nur Zahlen im Bereich 0..32767 
erlaubt! 

String 

= 

STR {char}. 

char 

= 

"CHAR". Nur Codes kleiner gleich 177C erlaubt! 

SourcePos 

= 

"LONGINT". 

ERRFILE 

= 

”LONGINT(3)". 

ERR 

= 

”LONGINT(0C1457272H)". 

STR 

= 

"CHAR(0C2H)". 


"String" muss mit einem oder zwei OC-Zeichen abgeschlossen sein. Ein 
zweites OC-Zeichen ist manchmal nötig um sicherzustellen, dass das 
nächste Element der Fehlerdatei auf eine gerade Adresse zu liegen 
kommt. SourcePos gibt die Position des Fehlers im Quelltext an. 
ErrorNum bezieht sich auf Meldungen, die in der Datei M2:Fehler- 
Meldungen gespeichert sind. Diese Datei enthält alle Fehlermeldungen, 
bzw. Textbausteine die für Fehlermeldungen benötigt werden zusam¬ 
men mit der Zahl mit der sie identifiziert werden. Die Struktur der Datei 
ist: 
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MessageFile = 

Message = 

ErrorPos = 

ErrorPart = 

Next = 

Number = 

String = 


char 

End 


{Message} End. 

Next Number String. 

ERR SourcePos. 

ErrorNum I String. 

"LONGINT". Adresse der nächsten 
Fehlermeldung relativ zum Anfang der Datei. 
"INTEGER". Fehlemummer. 

{char}. Fehlertext. Muss mit einem OC 
abgeschlossen sein. Ein weiteres Zeichen wird, 
wo nötig, angefügt um sicherzustellen dass die 
nächste Meldung wieder auf eine gerade Adresse 
zu liegen kommt. 

"CHAR". 

"LONGINT(O)" "INTEGER(O)". 


Laufzeitumgebung von M2Amiga 

Ein Modula-2-Programm besteht aus einem oder mehreren Moduln. 
Zu jedem Modul werden zwei Speicherbereiche, ein Datenbereich und 
ein Codebereich, angelegt. Im Datenbereich werden die globalen Daten 
eines Moduls abgelegt. Der Codebereich enthält neben dem eigentlichen 
Code auch alle konstanten Zeichenketten, eine Tabelle mit Sprung¬ 
befehlen zu den exportierten Prozeduren, eine Tabelle mit den Adressen 
aller importierten Module und einen Zeiger auf den Datenbereich 
(Fig. 1, niedrige Adressen oben, höhere Adressen unten) 


Der Modulzeiger zeiget auf das Ende der Prozedurtabelle. Dies erlaubt 
Moduln gleich wie Amiga-Libraries anzuspringen, nämlich indem das 
Register A6 mit der Adresse des Moduls beziehungsweise der Library 
geladen wird und dann mit einem JSR offset (A6) in die Pro¬ 
zedurtabelle gesprungen wird. 
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Fig.l 

Der Zeiger auf den eigenen Datenbereich zeigt immer auf dessen Ende. 
Während des Programmablaufs zeigt das A4-Register immer auf die 
globalen Daten des eigenen Moduls (static base). An der Stelle -2 (A4) 
befindet sich das Flag, d.h ein Wort, das den Wert 0 hat, wenn das 
Modul noch nicht initialisiert ist, und das auf 1 gesetzt wird wenn das 
Modul initialisiert wurde. Die globalen Daten werden in negativer 
Richtung alloziert. Dabei werden alle Variablen, die grösser als ein Byte 
sind immer auf eine gerade Adresse gelegt. 

Beispiel: var 

i:INTEGER; -4 

c:CHAR; -5 

a:ARRAY [0..5] OF CHAR; -12 
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Das A5-Register zeigt auf den Prozedurdeskriptor (mark pointer). Der 
Prozedurdeskriptor umfasst 12 Byte. Im Falle einer globalen Prozedur 
enthält sie neben der Rücksprungadresse einen Zeiger auf den Pro¬ 
zedurdeskriptor der aufrufenden Prozedur (dynamic link) und den alten 
Zustand des A4-Registers. Bei einer lokalen Prozedur ist es nicht nötig, 
das Register A4 zu retten, da kein Modulwechsel stattfindet. Statt- 
dessen wird aber ein Zeiger auf den aktuellste Prozedurdeskriptor der 
umschliessenden Prozedur benötigt (static link). Die beiden Arten von 
Prozedurdeskriptoren sind in Fig. 2 dargestellt. 



lokale 

Prozedur 


globale 

Prozedur 


Fig. 2 


( 


Vom Prozedurdeskriptor aus in negativer Richtung werden die lokalen 
Variablen angelegt. Mit positivem Offset zum A 5-Register erreicht man 
die Parameter der Prozedur. Sowohl für die Parameter als auch für die 
lokalen Variablen gilt dieselbe Art der Adressenvergabe wie für die 
globalen Variablen. 


Parameter können in Modula-2 als Wert- oder als Variablenparameter 
übergeben werden. Bei Wertparametern wird immer der Wert der ( 
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Variable auf den Stack kopiert. So sollte man daran denken, einen 
genügend grossen Stack bereitzustellen, falls eine Prozedur beispiels¬ 
weise ein grosses Feld als Werteparameter besitzt. Bei Variablen¬ 
parameter wird nur die Adresse der Variablen auf den Stack kopiert. Die 
Prozedur benutzt dann diese Adresse, um auf den Inhalt der über¬ 
gebenen Variablen zugreifen zu können. 


Eine Ausnahme von dieser Regel tritt bei den offenen Feldparametern 
ein. Da nicht von vornherein bekannt ist, wie gross das Array beim 
Aufruf ist (selbst bei Werteparametern) kann nicht der Inhalt der 
Variablen auf den Stack kopiert werden, da die Prozedur sonst nicht 
wüsste wie sie die nachfolgenden Parameter adressieren sollte. Es wird 
in diesem Fall ein 8 Byte grosser Deskriptor auf den Stack kopiert. 
Dieser enthält den Wert von HIGH und die Adresse der Variablen. Die 
Prozedur kopiert, wenn es sich um einen Werteparameter handelt, die 
Variable, an die lokalen Variablen anschliessend, auf den Stack. 

Kontrollcode 

Der Quelltext eines Modula-2-Programms wird vom Compiler bereits 
auf grösstmögliche Fehlerfreiheit kontrolliert. Der Compiler prüft, ob 
die Syntax des Programms korrekt ist. Einige Fehler sind jedoch erst zur 
Laufzeit des Programms feststellbar. 

Dazu wird vom Compiler Kontrollcode erzeugt, der je nach Situation 
durchlaufen wird. Signalisiert dieser Kontrollcode eine abnormale 
Situation so resultiert ein Laufzeitfehler. Dies bringt dem Progammierer 
zwei entscheidende Vorteile: 


Fehler in der Programmierung können genauer lokalisiert 
werden und die Fehlersuche wird kürzer und effektiver. 


Das Programm wird im Fehlerfall sauber abgebrochen, die 
anderen Prozesse laufen ungestört weiter. Das hat zur Kon¬ 
sequenz, dass der ungeliebte "Guru" nicht erscheint. 
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Diesen Vorteilen stehen aber auch Nachteile gegenüber: 


Der Kontrollcode vergrössert die Objektdatei. 


Das Programm wird langsamer. 

Anhand der folgenden drei Beispielprozeduren soll die Auswirkung des 
Kontrollcodes auf Grösse und Geschwindigkeit des erzeugten Code 
gezeigt werden. Die kursiv gedruckten Zeilen heben den Kontrollcode 
hervor: 

CONST 

Range=2000000; ( 

PROCEDURE NoRangeCheck; 

VAR 

irLONGINT; 
j:INTEGER; 

a:ARRAY[0..7 ] OF INTEGER; 

BEGIN 

j:=5; 

FOR i:=0 TO Range DO 
(*$R-*) 
a[j]:=2; 

01AA:3C2D FFFA 
01AE:E346 
01B0:47ED FFEA 
01B4:37BC 00026000 

(*$R=*) 

END; 

END NoRangeCheck; 


MOVE.W -6(A5), D6 
ASL.W #1, D6 

LEA -22 (A5) , A3 

MO VE. W #2, 0 (A3, D6.W) 
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PROCEDURE RangeCheck; 

VAR 

i:LONGINT; 
j:INTEGER; 

a:ARRAY[0..7] OF INTEGER; 
BEGIN 
j :=5; 

FOR i:=0 TO Range DO 
(*$R+*) 

a[j]:=2; 


-6(A5), D6 
#7, D6 
#1, D6 
-22(A5), A3 
#2, 0(A3, D6.W) 

(*$R=*) 

END; 

END RangeCheck; 


016A:3C2D FFFA 
016E-.4DBC 0007 
0172:E346 
0174:47ED FFEA 
0178:37BC 00026000 


MOVE.W 
CHK 
ASL.W 
LEA 

MOVE.W 


CONST 

0verflow=2000000; 

PROCEDURE NoOverflowCheck; 
VAR 

i:LONGINT; 
n:LONGINT; 

BEGIN 
n: =0 ; 

FOR i:=0 TO Overflow DO 
(*$V—*) 
n:=n+l; 


-8(A5), D6 
#1, D6 
D6, -8(A5) 

(*$V=*) 

END; 

END NoOverflowCheck; 


0134:2C2D FFF8 MOVE.L 
0138:5286 ADDQ.L 
013A.-2B4 6 FFF8 MOVE.L 
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PROCEDURE OverflowCheck; 
VAR 

i:LONGINT; 
n:LONGINT; 

BEGIN 

n:=0; 

FOR i:=0 TO Overflow DO 
(*$V+*) 
n:=n+l; 

OOFE:2C2D FFF8 
0102:5286 
0104:4E76 
0106:2B46 FFF8 

(*$V-*) 

END; 

END OverflowCheck; 

CONST 

Stacks=1000000; 


(*$S-*) 

PROCEDURE NoStackCheck2; 

VAR 

i:ARRAY[0..99] OF LONGINT; 

BEGIN 

0218: 2F0C MOVE.L A4, -(Al) 

021A:287A FEA8 MOVE.L -344 (PC) <000000C4>, A4 

021E:4E55 FE70 LINK A5, #-400 

END NoStackCheck2; 

(*$S=*) 


MOVE.L -8(A5), D6 
ADDQ.L #1, D6 
TRAPV 

MOVE.L D6, -8(A5) 
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PROCEDURE NoStackCheck; 

VAR 

i:LONGINT; 

BE GIN 

FOR i:=0 TO Stacks DO 
(*$S-*) 

NoStackCheck2; 

0242:6100 FFD4 BSR 00000218 [-44] 

(*$S=*) 

END; 

END NoStackCheck; 


(*$S+*) 

PROCEDURE StackCheck2; 

VAR 

i:ARRAY[0..99] OF LONGINT; 
BEGIN 


01C6:203C 

FFFFFE70 

MOVE.L 

#-400, DO 


01CC: 2C7A 

FEFA 

MOVE.L 

-262(PC)<OOOOOOC8>, 

A6 

01D0 : 4EAE 

FFEE 

JSR 

-18 (A6) 


01D4:2F0C 


MOVE.L 

A4, -(A7) 


01D6:287A 

FEEC 

MOVE.L 

-276(PC)<000000C4>, 

A4 

01DA:4E55 

FE70 

LINK 

A5, #-400 



END StackCheck2; 
(*$S=*) 


PROCEDURE StackCheck; 

VAR 

i:LONGINT; 

BEGIN 

FOR i:=0 TO Stacks DO 
(*$S+*) 

StackCheck2; 

01 FE:70F4 MOVEQ #-12, DO 

0200:2C7A FEC6 MOVE.L -314(PC)<000000C8>, A6 

0204: 4EAE FFEE JSR -18 (A6) 

0208:6100 FFBC BSR 000001C6 [-68] 

(*$S=*) 

END; 

END StackCheck; 
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Bereichs- und Überlaufprüfung benötigen wenig zusätzlichen Code. In 
diese Prozeduren wurde nur jeweils eine Anweisung eingefügt. Anders 
verhält es sich mit der Stapelüberlaufprüfung. Beim Aufruf der Prozedur 
müssen 3 zusätzliche Befehle eingefügt werden (10 Byte). Dasselbe 
geschieht beim Eingangscode der aufgerufenen Prozedur. Der einge¬ 
fügte Code ruft eine Prozedur im Modul Arts auf, welche überprüft, ob 
die benötigte Anzahl von Byte auf dem Stapel noch verfügbar ist. Diese 
Überprüfungen kosten nicht nur Speicherplatz, sondern auch Aus¬ 
führungszeit: 


Überprüfung 

Bereich 

Überlauf 

Stapelüberlauf 


ausgeschaltet 

33.9 s 
36.2 s 

26.9 s 


eingeschaltet 

35.5 s 

40.5 s 
81s 


Zunahme 
5% 
12 % 
201 % 


Währenddem die Bereichs- und Überlaufprüfungen kaum zusätzlich Zeit 
beanspruchen, braucht der Aufruf einer leeren Prozedur 3 mal mehr Zeit 
wenn die Überprüfung eingeschaltet ist. Sollte also ein Programmteil 
nicht schnell genug laufen, empfiehlt es sich als erstes die Stapelüber¬ 
laufprüfung auszuschalten, weil man damit das Programm am ehesten 
beschleunigen kann. 
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In diesem Kapitel soll auf einige Besonderheiten bei der Programmie¬ 
rung mit M2Amiga hingewiesen werden. Das Betriebsystem des Amigas 
wurde in den Programmiersprachen C, Assembler und BCPL implemen¬ 
tiert. Eigenheiten dieser Sprachen haben an verschiedenen Stellen 
Spuren hinterlassen. Um Modula-2 optimal in diese Umgebung einzu¬ 
fügen ist es deshalb nötig deren Spezialitäten zu kennen. 

Übersetzung von C-Programmen 

Sollen auf dem Amiga Betriebssystem-Schnittstellen verwendet werden, 
so ist meist die Kenntnis der Programmiersprache C vonnöten. Auch 
scheinen die Deklarationen von Amiga-Modula-2 nicht immer 
einleuchtend. Dieser Abschnitt soll einige Unterschiede darstellen. 

Aufzählungs- und Mengentypen 

In C findet man oft Deklarationen wie: 


SERB_parityOn=0 / 

SERB_parityOdd=l; <A> 

SERB_sevenWire=2; 

SERB_queuedBrk=3; 


SERF_parityOn =0x0001; 
SERF_parityOdd=0x0002; 
SERF__sevenWire=0x0004; 
SERF_queuedBrk=0x0008; 


(oder l«SERB_parityOn) 
(oder l«SERB_parityOdd) 
(oder l«SERB_sevenWire) 
(oder l«SERB_queuedBrk) 


<B> 


Im Programm steht dann: 


flags=SERF_parityOn|SERF_queuedBrk; 


<C> 


Dies heisst in Modula-2 viel eleganter: 


SerFlags=(parityOn,parityOdd,sevenWire,queuedBrk); <A> 


SerFlagSet=SET OF SerFlags; 


<B> 
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flags:=SerFlagSet{parityOn,queuedBrk}; 


<C> 


Ein Aufzählungstyp in Modula-2 ist gleichbedeutend mit einer 
Deklaration von Konstanten, die von 0 an durchnumeriert werden. 
Deshalb kann die C-Deklaration <A> in einen Aufzählungstyp 
umgewandelt werden. 

Eine Menge wird intern so dargestellt, dass jedes Element ein Bit 
beansprucht, und zwar so, dass das erste Element die Bitposition 0, das 
zweite Element die Bitposition 1 usw.. annimmt. Deshalb kann die C- 
Deklaration <B> in einen Mengentyp umgewandelt werden. 


Die Anweisung <C> ergibt sich als logische Konsequenz der Definition. 

Nebst der überschaubareren Schreibweise ermöglicht diese Übersetzung 
dem Compiler eine strengere Typenkontrolle. Die Elemente der 
Aufzählungs- und der Mengentypen sind an ihren Typ gebunden. So 
sind "ScreenFlags" und "WindowFlags" nur an Variablen ihres Typs 
zuweisbar. Eine Verletzung dieser Regel wird schon vom Compiler 
beanstandet und nicht erst zur Laufzeit durch Guru Messages gemeldet. 

VAR-Parameter 

Ein weiterer Vorteil von Modula-2 gegenüber der Sprache C sind die 
VAR-Parameter. C kennt ausschliesslich Werteparameter, d.h. die 
Prozedur kann den ihr übergebenen Wert nur lokal verändern. Soll der 
Inhalt eines Parameters in der Prozedur bleibend verändert werden, 
dann muss man einige Kunstgriffe anwenden. Was in Modula-2 so 
einfach aussieht: 
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MODULE m; 


PROCEDURE P(i:INTEGER; VAR j:INTEGER); 
BEGIN 
j :=2*i; 

END P; 

VAR 

k: INTEGER; 

BEGIN 
P(2,k> ; 

END m. 


wird in C folgendermassen geschrieben: 


void p(i,j) 
int i; 

int *j; /* j wird als Zeiger auf int deklariert */ 

{ 

(* j) =2 *i; 

} 

main() 

{ 

int k; 

p(2,&k); /* Für j muss Adresse übergeben werden */ 

} 


Das bedeutet, dass man beim Zurückübersetzen nach Modula-2 
aufpassen muss, nicht wörtlich zu übersetzen, sonst erhält man ein 
Programm, dass zwar richtig ist und funktioniert, aber seine "C- 
Vergangenheit" nicht verbergen kann: 
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MODULE m; 


FROM SYSTEM IMPORT ADR; 

TYPE 

IntegerPtr=POINTER TO INTEGER; 

PROCEDURE P(I:INTEGER; j:IntegerPtr); 
BEGIN 
j ~:=2 *i; 

END P; 

VAR 

k:INTEGER; 

BEGIN 

P (2, ADR(k) ) ; 

END m. 


( 


Beispiele für eine elegante Übersetzung in Modula-2 findet man im 
Modul Graphics. Die Prozedur InitBitmap erwartet als ersten 
Parameter die Adresse einer BitMap. In Modula-2 wurde das als ein 
VAR-Parameter des Typs BitMap deklariert. Die Übergabe mit Hilfe 
von VAR-Parametern wurde überall dort so übersetzt, wo es nicht 
unbedingt nötig ist, einen Zeiger zu übergeben. 


Record-Varianten 


Union in C und Varianten im RECORD in Modula-2 dienen dem 
gleichen Zweck, sind aber nicht identisch. In beiden Fällen geht es 
darum, verschiedene Felder eines RECORDs auf die gleiche Speicher¬ 
stelle abzubilden, um so zwischen den Typen zu wechseln. Wesentlicher 
Unterschied: In C umfasst ein union die verschiedenen Darstellungen 
eines einzelnen Feldes, während in Modula-2 mehrere Felder 
angegeben werden können. Bsp: 


struct example { 

LONG first; * 
union { 

WORD a; 

BYTE b; 
char c; 

} second; ( 

}; 
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ist in Modula-2 


example=RECORD 
first:LONGINT; 
CASE :INTEGER OF 
I 0: a:CARDINAL; 

I 1: b:BYTE; 

| 2: c:CHAR; 

END; 

END; 


Ein weiterer Unterschied ist, dass man in C einen Namen für den union 
und einzelne Namen für die verschiedenen Varianten angibt. In 
Modula-2 ist dies nicht der Fall. Bsp, Zugriff auf das Feld b: 

C: example.second.b 

Modula-2: example.b 

Dafür können in Modula-2 die Varianten nur auf RECORDs 
angewendet werden, während in C auch einfache Variablen als union 
deklariert werden können. 

Funktionsresultate 

Die Prozedur DateStamp aus Dos gibt den Pointer, den man als 
Parameter übergibt, als Funktionsresultat wieder zurück. Dies erlaubt 
es, in C zu schreiben: 

sekunden=DateStamp(v)->secs; 

Dies ist in Modula-2 nicht möglich, der entsprechende Befehl 

Sekunden :=DateStamp(v) A .secs; 

ist in Modula-2 ungültig. In Modula-2 programmiert man dies 
üblicherweise als: 
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DateStamp(v); 
Sekunden:=v^.secs; 


Die Prozedur DateStamp hat keinen Resultatswert mehr. 


Aus ähnlichen Überlegungen heraus sind auch die Prozeduren 
OpenDevice und DoIO aus Exec als reine Prozeduren formuliert. 
Der zurückgegebene Resultatswert ist nämlich nichts anderes als der 
Fehlerwert im error-Feld der IORequest-Struktur. In Modula-2 
wird man also statt 


if (DoIO(request)=0) { .... }; 
schreiben 

DoIO(request); IF request.error=0 THEN ... END; 

M2Amiga Besonderheiten 

Einige Besonderheiten ergeben sich daraus, dass gewisse Konventionen 
die in Modula-2 gelten, nicht identisch sind mit den entsprechenden 
Konventionen des Amiga. 

Zeichenketten 


Zeichenketten werden in Modula-2 in Variablen des Typs 
ARRAY [0..n] OF CHAR abgelegt. Die darin abgelegte 
Zeichenkette darf 0 bis n+1 Zeichen umfassen. Ist sie kürzer als n+1, 
dann wird sie mit einem 0C Zeichen abgeschlossen. Ist die Zeichenkette 
jedoch genau n+1 Zeichen lang, dann ist sie nicht mit einem 0C Zeichen 
abgeschlossen. Die Amiga Prozeduren erwarten jedoch, dass jede 
Zeichenkette mit einem 0C Zeichen abgeschlossen ist. Man ist also dafür 
verantwortlich, dass man seine Variablen lang genug deklariert. 


Besonders vorsichtig muss man bei der Übergabe von konstanten 
Zeichenketten an einen offenen Feldparametern sein. In diesem Fall 
werden nämlich nur die signifikanten Zeichen übergeben. Das 
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abschliessende OC fehlt.. Einer Modula-Prozedur, wie z.B. 
Terminal.WriteString, macht dies nichts aus, denn sie wird mithilfe der 
Modula-2 Funktion HIGH die Länge der Zeichenkette herausfinden 
können. 


Anders verhält es sich aber mit den Prozeduren der Schnittstellen- 
Module, wie z.B Dos.Open. Dieser Prozedur muss der Name der zu 
öffnenden Datei übergeben werden können. In M2Amiga geschieht dies, 
indem der Parameter nicht eine Zeichenkette, sondern eine Adresse 
erwartet, also: 

| f:=Dos.Open(ADR("s:Startup-Sequence"),oldFile); 


Dies funktioniert, weil ADR die Adresse auf die Zeichenkette übergibt, 
die sich im Konstantenteil des Codebereichs befindet. Im Konstanten¬ 
bereich ist jede Zeichenkette garantiert mit einem OC abgeschlossen. 


Terminate statt Exit 

Dos stellt zur Beendigung eines Programmes die Prozedur Exit zur 
Verfügung. Diese sollte man in Modula-2 Programmen nicht 
verwenden. Exit würde nämlich das Programm unmittelbar beenden, 
ohne dem Ausgangscode von Arts die Möglichkeit zu geben die 
Abschlussprozeduren aufzurufen. Das autmatische Freigeben der 
Resourcen (z.B. Speicher der mit Heap alloziert wurde) würde dann 
nicht ausgeführt! 

Falls ein Abbruch des Programms benötigt wird, sollte die Prozedur 
Terminate aus dem Modul Arts benutzt werden. Eine Mdula-2 gerechte 
Exit Prozedur sieht dann so aus: 

PROCEDURE Exit (rc: LONGINT); 

BEGIN 

returnVal :=rc; 

Terminate(CurrentLevel()); 

END Exit; 
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Verwendung von Abschlussprozeduren und Assert 


Die Abschlussprozeduren und die Prozedur Assert stellen ein bequemes 
Mittel dar, um Programme sicher abzubrechen, falls ein Fehler 
aufgetreten ist, der eine weitere Ausführung des Programms nicht 
erlaubt. Folgendes Beispielprogramm soll das illustrieren: 

MODULE m; 

VAR 

screen:ScreenPtr; 
window;WindowPt r; 

PROCEDURE Cleanup; 

BEGIN 

IF window#NIL THEN 
CloseWindow(window); window:=NIL; 

END; 

IF screen#NIL THEN 
CloseScreen(screen); screen:=NIL; 

END; 

END Cleanup; 

PROCEDURE Init; 

CONST 

screenError="Screen nicht geöffnet”; 
windowError="Fenster nicht geöffnet"; 

VAR 

newScr:NewScreen; 
newWin:NewWindow; 

BEGIN 

screen:=NIL; window;=NIL; 

TermProcedure(Cleanup); 

... initialisiere newScr ... 
screen:=OpenScreen(newScr); 

Assert(screen#NIL,ADR(screenError) ); 

... initialisiere newWin ... 
window:=OpenWindow(newWin); 

Assert(window#NIL,ADR(windowError) ) ; 

END Init; 

BEGIN 

Init; 

... von hier an ist garantiert Alles offen. 

END m. 
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Die Prozedur Cleanup stellt die Abschlussprozedur dar. Sie geht 
davon aus, dass in window bzw. screen nur genau dann ein Wert 
ungleich NIL gespeichert ist, wenn das Fenster bzw. der Screen geöffnet 
ist. Ist dies bei einer der beiden Variablen der Fall, dann wird das 
Fenster bzw. der Screen geschlossen. 


Init initialisiert als erstes die Variablen window und screen mit 
dem Wert NIL. Nachdem diese Anweisungen ausgeführt sind soll sind 
die obengenannten Voraussetzungen für das korrekte Funktionieren von 
Cleanup erfüllt. Die Cleanup Prozedur kann nun als 
Abschlussprozedur mit TermProcedure(Cleanup) installiert werden. 


Nachdem dieCleanup Prozedur installiert ist, wird versucht den Screen 
zu öffnen. Assert überprüft, ob dies gelungen ist. Sollte screen 
nach dem OpenScreen Befehl immer noch den Wert NIL haben, dann 
ist etwas schiefgelaufen. Assert würden dann das Programm mit dem 
Requester "Screen nicht geöffnet" beenden. Dasselbe geschieht danach 
mit dem Fenster. 

Man beachte dabei das korrekte Zusammenspiel zwischen 
Initialisierung- und Abschlussprozedur. Nehmen wir an, das Öffnen des 
Screen gelingt, nicht aber das Öffnen des Fensters. Beim Aufruf des 
zweiten Assert Befehls wird das Programm abgebrochen, wobei 
screen einen Wert imgleich NIL hat (Screen offen), und window den 
Wert NIL hat. Die Abschlussprozedur Cleanup, die nun aufgerufen 
wird, schliesst den Screen, wird aber nicht versuchen das Fenster zu 
schliessen (was unweigerlich zu einem Absturz führen würde), da 
window den Wert NIL hat. 
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Arguments 


Arguments 

Das Modul Arguments erlaubt den Zugriff auf die 
Programmargumente, die der Benutzer beim Aufstarten des Programms 
angibt. Unterstützt werden Argumente, die über das CLI auf der 
Befehlszeile oder über die Workbench durch erweiterte Selektion, 
übergeben werden. 

DEFINITION MODULE Arguments; 

FROM Dos IMPORT 
FileLockPtr; 

VAR 

quoted: BOOLEAN; 

PROCEDÜRE NumArgs(): INTEGER; 

PROCEDURE GetArg(arg: INTEGER; 

VAR argument; ARRAY OF CHAR; 

VAR len: INTEGER); 

PROCEDURE GetLock(arg: INTEGER): FileLockPtr; 

END Arguments. 


Die Prozedur NumArgs liefert die Anzahl der Programmargumente. 
Diese Zahl gibt entweder die Anzahl Argumente der Befehlszeile oder 
die Anzahl selektierter Workbench-Ikonen an. Wurde kein Argument 
übergeben, liefert NumArgs den Wert 0. 


GetArg liefert den Wert des gewünschten Arguments, sofern dieses 
existiert. Ein Aufruf mit Argumentnummer arg=0 liefert den Namen des 
aufgestarteten Programms. Bei jedem Aufruf von GetArg erhält die 
Variable quoted den Wahrheitswert wahr, falls das Argument doppelte 
Anführungszeichen enthielt. Dies ermöglicht die Unterscheidung von 
Schlüsselwörtern und Argumenten mit demselben Namen. 


Beispiel: dir "all" zeigt den Inhalt des Verzeichnis "all" 
dir all ausführliches Verzeichnis-Listing 
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Arguments 


GetArg verbirgt die Unterschiede der Parameterübergabe von CLI und 
Workbench vor dem Benutzer. Während ein Argument der Befehlszeile 
aus einer einfachen Zeichenkette besteht, setzt sich ein Workbench- 
Argument aus zwei Komponenten zusammen, dem Namen des 
Arguments und einer Referenz auf das Verzeichnis der entsprechenden 
Datei. Bei Workbench-Argumenten setzt der Aufruf von Get Arg das 
aktuelle Verzeichnis des Programms auf das Verzeichnis der Argument¬ 
datei (durch CurrentDir [DOS]). 


Bei der Interpretation der Befehlszeile werden folgende Regeln 
angewendet: Leerschläge werden grundsätzlich als Trennung zwischen 
zwei Argumenten ausgelegt. Durch die Verwendung von doppelten 
Anführungszeichen (") können aber auch Leerschläge in das Argument 
eingefügt werden. Alle Zeichen, die zwischen zwei Anführungszeichen 
stehen, werden unverändert in das Argument übernommen; die 
Anführungszeichen selbst üben keine Trennfunktionen aus. 


Ein leeres Argument kann neuerdings auch ein gültges Resultat von 
Get Arg sein. In AmigaDos 1.3 bezeichnen leere Argumente das aktuelle 
Verzeichnis. 


j Beispiel: copy M2Disk:MeinProjekt/Test .mod " 


Dies kopiert die Datei ”M2Disk: MeinProjekt /Test .mod” in das 
aktuelle Verzeichnis. 


Alle Programme im Stil 


argNr:=1; 

LOOP 

GetArg(argNr, argStr, argLen); INC(argNr); 
IF argLen = 0 THEN EXIT END; 

END; 


sollten zu 


FOR argNr :=1 TO NumArgsO DO 
GetArg(argNr, argStr, argLen); 
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END; 


umgeschrieben werden. 


Die Funktion GetLock gibt immer einen gültigen, "gelockten" 
FileLockPtr zurück, der auf das Verzeichnis des zugehörigen 
Arguments verweist. Dieser FileLockPtr muss mittels Dos . UnLock () 
später wieder freigegeben werden. Dieser wird bei Workbench- 
Argumenten durch Dos . DupLock (), während bei CLI-Argumenten das 
aktuelle Verzeichnis durch einen Aufruf von 
Dos . Lock (ADR (" ") , Dos, sharedLock) erzeugt wird. 

Beispiel: MODULE args; 

(* Programm "args" gibt alle übergebenen 

* Argumente über Terminal aus, unabhängig von 

* der Aufruf-Umgebung 
*) 

FROM Arguments IMPORT 
GetArg, NumArgs; 

FROM ASCII IMPORT 
ht ; 

FROM Terminal IMPORT 
Write, WriteLn, WriteString; 

VAR 

arg, len: INTEGER; 

argument: ARRAY [0..63] OF CHAR; 

BEGIN 

FOR i:=0 TO NumArgs() DO 
GetArg(arg, argument, len); 

Write(); Write (ht); 

Write ( 1 " 1 ); WriteString(argument); 

Write( 1 " 1 ); 

WriteLn 

END 

END args. 
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Einige Aufrufe des obigen Programms: 


args Max und Moritz ergibt drei Argumente: 
"args" 

"Max" 

"und" 

"Moritz" 

args "Max und Moritz" ergibt das Argument: 
"args" 

"Max und Morit z " 

args Ma"x und" Moritz ergibt zwei Argumente: 
"args" 

"Max und" 

"Moritz" 
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Die Schnittstelle zu Arts (Amiga Runtime System; Amiga 
Laufzeitsystem) erlaubt den Zugriff auf einige Prozeduren des Amiga 
Modula-2 Laufzeitsystems. 


[ Varnung: Verwenden Sie diese Prozeduren nur, wenn sie 

wissen, was diese bewirken! Jede Fehlmanipulation 
_ kann zu unvorhersehbaren Resultaten führen. _ 


DEFINITION MODULE Arts; 

FROM SYSTEM IMPORT 
ADDRESS,LONGSET; 

CONST 

maxModName=32; maxKeys=3; 

TYPE 

ErrorType=(trap,exception, System,assertion, 
breakPoint,explicit); 

SysErr=(halt,illCase,fctReturn,stkOvl,illCall); 
E r r o rF r ame=RE CORD 
pc: ADRESS; 

dRegs: ARRAY [0..7] OF LONGINT; 
aRegs: ARRAY [8..15] OF ADDRESS; 

CASE error: ErrorType OF 
I trap: trapNr: INTEGER; 

I exception: exceptionMask: LONGSET 
I System: sysErr: SysErr 
I assertion,breakPoint,explicit: 

END; 

header,body: ADDRESS 
END; 

(* 

* Folgende Strukturen sind für den Linker, 

* den Loader und Arts. 

* Nicht für allgemeinen Gebrauch! 

*) 

ModType= (none, mod. Üb, nolmp) ; 

ModName=ARRAY [0 . .maxModName-1 ] OF CHAR; 

ModKeys =ARRAY [0..maxKeys-1] OF CARDINAL; 
Moduleld=RECORD 

type: INTEGER; (* ORD(ModType) *) 
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name: Mo dName; 

CASE :ModType OF 
I üb: 

pad: INTEGER; 

ÜbVersion: LONGINT; 

| mod, nolmp: 
keys: ModKeys; 

END 

END; 

Modulelnfo=RECORD 
id: Moduleld; 

CASE :ModType OF 
I Üb: 

ÜbPtr: ADDRESS; 
fixup: ADDRESS 
| mod: 

modPtr: ADDRESS; 
dataPtr: ADDRESS 
END 
END; 

ModulelnfoPtr=POINTER TO Modulelnfo; 

VAR 

(* 

* Ändern der folgenden Werte garantiert den 

* Programmabsturz! 

* Ursprüngliche CLI-Argumente und Resultatswert 

* (auf 0 gesetzt) 

*) 

stackSize: LONGINT; 
dosCmdBuf: ADDRESS; (* {aO} *) 

dosCmdLen: LONGINT; (* {dO} *) 

returnVal: LONGINT; 

(* 

* wbStarted ist wahr, falls von der Workbench gestartet 
*) 

wbStarted: BOOLEAN; 
startupMsg: ADDRESS; 

(* Modula-2 Umgebungs-Variablen *) 
stackTop: ADDRESS; 
errorFrame: ErrorFrame; 

modulelnfo: ModulelnfoPtr; (* {d7} *) 

(* Diese Prozedur darf nicht aufgerufen werden!!! *) 
PROCEDURE Startup(base, stk: LONGINT): LONGINT; 

(* Compiler Unterstützung *) 
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PROCEDÜRE StkChk(need{0}: LONGINT); 

PROCEDURE SystemError(err{0}: SysErr); 

(*SystemError(halt)=HALT*) 

PROCEDURE Mulu32(x{0},y{1}: LONGINT): LONGINT; 
PROCEDURE Divu32(x{0 }, y {1} : LONGINT): LONGINT; 
PROCEDURE Muls32(x{0},y{l}: LONGINT): LONGINT; 
PROCEDURE Divs32(x{0},y{l}: LONGINT): LONGINT; 


(* Laufzeitunterstützung *) 

PROCEDURE Assert(condition: BOOLEAN; msg: ADDRESS); 
PROCEDURE BreakPoint(msg: ADDRESS); 

PROCEDURE Call(p: PROC); 

PROCEDURE CurrentLevel(): INTEGER; 

PROCEDURE DebugProcedure(debugger: PROC); 

PROCEDURE DetectCtrlC(on{0}: BOOLEAN); 

PROCEDURE Error(header,body: ADDRESS); 

PROCEDURE RemoveDebugProc(debugger: PROC); 

PROCEDURE RemoveTermProc(p: PROC); 

PROCEDURE Requester( 

header,body,pos,neg: ADDRESS): BOOLEAN; 
PROCEDURE Terminate(level: INTEGER); 

PROCEDURE TermProcedure(p: PROC); 


END Arts. 


Das Modul Arts hat das Erscheinungsbild eines normalen 
Bibliotheksmoduls, bestehend aus einer Symbol- und einer Objekt- 
Datei. Die Aufgaben von Arts sind jedoch weitaus vielfältiger und 
spezieller. Arts ist das sogenannte Laufzeitsystem, das die Basis jedes 
Modula-2 Programms bildet. Arts wird von jedem Modul implizit 

Die Prozeduren Assert, BreakPoint und Error vereinfachen 
eine einheitliche Fehlerbehandlung. Assert kontrolliert, ob eine 
Bedingung erfüllt ist. Dabei geht es um Bedingungen, die für das 
Weiterlaufen des Programms unbedingt erfüllt sein müssen (—> Kapitel 
Programmierhinweise). BreakPoint bedingt einen Programm¬ 
unterbruch, nach welchem wieder weitergefahren wird. Diese Prozedur 
kommt vor allem zur Anwendung, wenn auch ein Debugger installiert 
ist, der dann aktiviert werden kann. So wird der Programmzustand an 
einigen kritischen Punkten kontrolliert. Die Prozedur Error verursacht 
einen Programmabbruch, der an keine Bedingung geknüpft ist. An die 
Prozeduren Assert, BreakPoint und Error können auch 
Fehlermeldungen übergeben werden, die im Requester ausgegeben 
werden. 
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Die Funktion Requester zeigt einen Requester mit den angegebenen 
Texten header und body. Die Felder pos und neg zeigen auf die 
Texte, die in die Gadgets geschrieben werden, pos kann auch NIL sein, 
in diesem Fall wird der Requester nur ein Gadget haben. Der 
Rückgabewert von Requester gibt an, welches Gadget gewählt 
wurde. Wurde das Gadget mit dem Text von pos ausgewählt, dann 
gibt Requester den Wert TRUE zurück, sonst den Wert FALSE. 


Die Funktion DetectCtrlC erlaubt das Abschalten der CTRL-C 
behandlung. Normalerweise kann der Benutzer durch drücken der 
CTRL-C Taste oder mithilfe des BREAK-Befehl [DOS] das Programm 
abbrechen. Dies ist nicht immer erwünscht, z.B. sollte ein 
Terminalprogramm CTRL-C als normale Eingabe akzeprtieren. Ein 
Aufruf von DetectCtrlC mit dem Parameter on=FALSE schaltet 
die CTRL-C Behandlung in Arts ab. Ein Aufruf von DetectCtrlC mit 
dem Parameter on=TRUE schaltet sie wieder ein. 
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Das Modul ASCII definiert Namen für die ASCII 1 -Steuerzeichen. 


(* $M- *) 

DEFINITION MODULE ASCII; 


CONST 

nul 

— 

ooc, 

soh 

= 01C, 

stx 

_ 

02C, 

etx 

_ 

03C; 

eot 

= 

04C, 

enq 

= 05C, 

ack 

= 

06C, 

bei 

= 

07C; 

bs 

= 

IOC, 

ht 

= 11C, 

lf 

= 

12C, 

vt 

= 

13C; 

ff 

= 

14C, 

er 

= 15C, 

so 

= 

16C, 

si 

= 

17C; 

die 

= 

20C, 

del 

= 21C, 

dc2 

= 

22C, 

de 3 

= 

23C; 

de 4 

= 

24C, 

nak 

= 25C, 

syn 

= 

26C, 

etb 

= 

27C; 

can 

= 

30C, 

em 

= 31C 

sub 

= 

32C, 

esc 

= 

33C; 

fs 

= 

34C, 

gs 

= 35C, 

rs 

= 

36C, 

US 

= 

37 C; 

sp 

del 

eol 

eof 

= 

f 1 

177C 

lf; 

fs; 

-•. 

r 

(* 

(* 

Zeilenende 
Dateiende <ctrl-V 

> 


*) 

*) 

csi 

= 

233C; (* 

command sequence 

Introducer *) 


END ASCII. 


Anmerkung: Auf dem Amiga hat «cline feed> (1 f) die Funktion des 

Zeilenendes (eol). 

Anmerkung: Das Zeichen c s i (command sequence introducer) ist 

kein ASCII-KontrolIzeichen, sondern ein spezielles 
Bildschirmsteuerungs-Zeichen, das oft in Kontroll- 
sequenzen wie für die Ausgabe auf das RAW:-Device 
—> [DOS] benötigt wird. 

Anmerkung: Es existiert keine Objekt-Datei zum Modul ASCII. 


American Standard Code for Information Interchange 
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Diese Modul hilft bei der Erstellung von INLINE-Code für MC68000 
und MC68010. Es definiert für MC68000 Operationscodes und 
Adressierungsarten Konstanten. Diese können als Bausteine verwendet 
werden, um alle MC68000-Befehle zu erzeugen. Dafür ist die Kenntnis 
des Aufbau der Befehle nötig (-> [MC68000!). 

Anmerkung: Einige Befehle sind nur auf MC68010 vorhanden! Für 

die genaue Handhabung sei auf [MC68000] 
verwiesen. 

(*$M- *) 

DEFINITION MODULE Assembler; 

CONST 

(* Register *) 

d0=0; dl=l; d2=2; d3=3; d4=4; d5=5; d6=6; d7=7; 
a0=0; al=l; a2=2; a3=3; a4=4; a5=5; a6=6; a7=7; 

(* Bits in Condition Code Register *) 
nbit=8; zbit=4; vbit=2; cbit=l; 

(* Addressier-Modi *) 
ddir=00B; (* Dn *) 
adir=10B; (* An *) 
aidr=20B; (* (An) *) 
ainc=30B; (* (An)+ *) 
adec=40B; (* -(An) *) 

aoff=50B; (* dl6(An) *) 

aidx=60B; (* d8(An,Rx) *) 
absW=70B; (* abs.W *) 
absL=71B; (* abs.L *) 
prel=72B; (* dl6(PC) *) 
imm =74B; (* #n *) 

(* Werte für Schiebeoperationen *) 

lsO=l; lsl=2; ls2=4; ls3=8; ls4=10H; ls5=20H; ls6=40H; 
ls7=80H; ls8=100H; ls9=200H; lsl0=400H; lsll=800H; 
lsl2=1000H; lsl3=2000H; lsl4=4000H; lsl5=8000H; 

(* MC68000 Instruktions-Mnemonics. *) 
abcdB=140400B; abcdmB=140410B; 
addB=150000B; addW=150100B; addL=150200B; 
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addmB=150400B; addmW=150500B; addmL=150600B; 
addaW=150300B; addaL=150700B; 
addiB= 00300OB; addiW=003100B; addiL=003200B; 
addqB=050000B; addqW=050100B; addqL=050200B; 
addxB=150400B; addxW=150500B; addxL=150600B; 
addxmB=150410B; addxmW=150510B; addxmL=150610B; 
andB=140000B; andW=140100B; andL=140200B; 
andmB=140400B; andmW=140500B; andmL=140600B; 
andiB=001000B; andiW=001100B; andiL=001200B; 
andiCCR=001074B; andiSR=001174B; 
aslB=l60440B; aslW=160540B; aslL=160640B; 
asliB=160400B; asliW=160500B; asliL=160600B; 
aslmW=160700B; 

asrB=l60040B; asrW=160140B; asrL=160240B; 
asriB=160000B; asriW=160100B; asriL=160200B; 
asrmW=160300B; 

bcc=062000B; bcs=062400B; beq=063400B; 
bge=066000B; bgt=067000B; bhi=061000B; 
ble=067400B; bls=061400B; blt=066400B; bmi=065400B; 
bne=063000B; bpl=065000B; bvc=064000B; bvs=064400B; 
bchg=000500B; bchgi=004100B; 
bclr=000600B; bclri=004200B; 

(* bkpt=044 HOB; *) 
bra=060000B; 

bset=000700B; bseti=004300B; 
bsr=060400B; 

btst=000400B; btsti=004000B; 
chkW=040600B; 

clrB=041000B; clrW=041100B; clrL=041200B; 

cmpB=l30000B; cmpW=130100B; cmpL=130200B; 

cmpaW=130300B; cmpaL=130700B; 

cmpiB=006000B; cmpiW=006100B; cmpiL=006200B; 

cmpmB=130410B; cmpmW=130510B; cmpmL=130610B; 

dbcc=052310B; dbcs=052710B; dbeq=053710B; 

dbf=050710B; dbge=056310B; 

dbgt=057310B; dbhi=051310B; dble=057710B; 

dbls=051710B; dblt=056710B; 

dbmi=055710B; dbne=053310B; dbpl=055310B; 

dbt=050310B; dbvc=054310B; 

dbvs=054710B; 

dbra=050710B; 

divsW=100700B; 

divuW=100300B; 

eorB=130400B; eorW=130500B; eorL=130600B; 
eoriB=005000B; eoriW=005100B; eoriL=005200B; 
eoriCCR=005074B; eoriSR=005174B; 
exgAA=140510B; exgDA=140610B; exgDD=140500B; 
extW=044200B; extL=044300B; 
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illegal=045374B; 

jmp=047300B; 

jsr=047200B; 

lea=040700B; 

linkW=047120B; 

lslB=160450B; lslW=l60550B; lslL=160650B; 
lsliB=160410B; lsliW=160510B; lsliL=160610B; 
lslmW=161700B; 

lsrB=l60050B; lsrW=l60150B; lsrL=160250B; 
lsriB=160010B; lsriW=160110B; lsriL=160210B; 
lsrmW=161300B; 

moveB=010000B; moveW=030000B; moveL=020000B; 
moveCCRfr=041300B; moveCCRto=042300B; 
moveSRfr=040300B; moveSRto=043300B; 
moveUSPfr=047150B; moveUSPto=04714OB; 
moveaW=030100B; moveaL=020100B; 
movecLfr=047172B; movecLto=047173B; 
movemW=046200B; movemL=046300B; 
movemmW=04 4 2 0OB; movemmL=0 4 4 30OB; 
movepW=00041OB; movepL= 000510B; 
movepmW=000610B; movepmL= 000710B; 
moveqL=070000B; 

movesB=007000B; movesW=007100B; movesL=007200B; 

mulsW=140700B; 

muluW=140300B; 

nbcdB=044000B; 

negB=042000B; negW=042100B; negL=042200B; 
negxB=040000B; negxW=040100B; negxL=040200B; 
nop=047161B; 

notB=043000B; notW=043100B; notL=043200B; 

orB=100000B; orW=100100B; orL=100200B; 

ormB=100400B; ormW=100500B; ormL=100600B; 

oriB=000000B; oriW=000100B; oriL=000200B; 

oriCCR=000074B; 

oriSR=000174B; 

pea=044100B; 

reset=047160B; 

rolB=160470B; rolW=160570B; rolL=160670B; 
roliB=160430B; roliW=160530B; roliL=160630B; 
rolmW=16370OB; 

rorB=160070B; rorW=l60170B; rorL=160270B; 
roriB=160030B; roriW=160130B; roriL=160230B; 
rormW=163300B; 

roxlB=160460B; roxlW=160560B; roxlL=160660B; 
roxliB=160420B; roxliW=160520B; roxliL=160620B; 
roxlmW=162700B; 

roxrB=160060B; roxrW=160160B; roxrL=160260B; 
roxriB=160020B; roxriW=160120B; roxriL=160220B; 
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roxrmW=162300B; 
rtd=047164B; rte=047163B; 
sbcdB=100400B; 
sbcdmB=10041OB; 
scc=052300B; scs=052700B; 
sge=056300B; 

sgt=057300B; shi=051300B; 
slt=056700B; 

smi=055700B; sne=053300B; 
svc=054300B; 

Svs=054700B; 

stop=047162B; 


rtr=047167B; 


seq=053700B; 

sle=057700B; 

spl=055300B; 


rts=047165B; 


sf=050700B; 

sls=051700B; 

st=050300B; 


subB=110000B; subW=110100B; subL=110200B; 
submB=110400B; submW=110500B; submL=110600B; 
subaW=110300B; subaL=110700B; 
subiB=002000B; subiW=002100B; subiL=002200B; 
subqB=050400B; subqW=050500B; subqL=050600B; 
SubxB=110400B; subxW=110500B; subxL=110600B; 
SubxmB=110410B; subxmW=110510B; subxmL=110610B; 
swapW=044100B; 
tasB=045300B; 

trap=047100B; trapv=047166B; 
tstB=045000B; tstW=045100B; tstL=045200B; 
unlk=047130B; 


END Assembler. 


Um einen Befehl zu erstellen, müssen die benötigten Konstanten addiert 
werden. Da der Compiler Konstanten-Ausdrücke bereits zur 
Compilationszeit auswertet ("constant folding"), wird dadurch kein 
unnötiger Code erzeugt. 


Untenstehendes Beispiel zeigt einige Anweisungen, die mit INLINE 
erzeugt wurden, gefolgt von der Ausgabe des Disassemblers. 


INLINE(moveL+dO*ls9+prel,-58, 
addL+dO*ls9+imm,1234H,5678H, 
roliL+3*ls9+dO, 
moveL+aidr*ls3+aO+ls9+dO); 


203A FFC6 
DOBC 12345678 
E798 
2280 


MOVE.L -58(PC)<FFFFFFF4>, DO 
ADD.L #305419896, DO 
ROL.L #3, DO 
MOVE.L DO, (Al) 
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Anmerkung: 


Es existiert keine Objekt-Datei zum Modul Assembler. 
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Das Modul Conversions stellt die beiden wichtigsten Prozeduren 
zur Umwandlung von ganzen Zahlen aus der lesbaren in die interne 
Darstellung und umgekehrt zur Verfügung. Dabei ist es möglich, sowohl 
vorzeichenbehaftete sowie vorzeichnenlose Grössen umzuwandeln. 


DEFINITION MODULE Conversions; 

PROCEDURE StrToVal(VAR str: ARRAY OF CHAR; 

VAR 1: LONGINT; 

VAR signed: BOOLEAN; base: INTEGER; 
VAR err: BOOLEAN); 

PROCEDURE ValToStr(1: LONGINT; signed: BOOLEAN; 

VAR Str: ARRAY OF CHAR; 

base, width: INTEGER; 

fillChar: CHAR; VAR err: BOOLEAN); 


END Conversions. 

Die Prozedur StrToVal wandelt von der lesbaren zur internen 
Darstellung um. Die Zeichenkette str enthält eine Zahl zur Basis 
base. Diese Zahlenbasis kann jeden Wert zwischen 2 und 16 annehmen, 
die verwendeten Zeichen müssen allerdings innerhalb des entsprechend 
gültigen Bereiches [0..base-l] sein, also beispielsweise zwischen 0 und 7 
für Zahlen in Oktaldarstellung. Die Zeichenkette darf insbesondere auch 
keine Leerzeichen enthalten, das Nullzeichen (OC) als Abschlusszeichen 
ist selbstverständlich erlaubt. Das Resultat wird im LONGINT- 
Parameter 1 abgelegt. Ein Fehler - angezeigt durch den Parameter 
err - kann durch folgende Ereignisse verursacht werden: 


Die Zahlenbasis ist ausserhalb des erlaubten Bereichs. 


Die Eingabe-Zeichenkette enthält Zeichen, die nicht zur 
angegebenen Basis passen. 

Der resultierende Wert kann nicht in einem LONGINT 
gespeichert werden. 
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Ist der Resultatswert 1 negativ und hat signed gleichzeitig den Wert 
FALSE, so wurde eine Zahl übergeben, die kein Minuszeichen enthält, 
deren Wert aber nicht in einer LONGINT-Zahl abgespeichert werden 
kann. In diesem Fall ist die Zahl l in einem LONGCARD abzuspeichern. 
Entweder wird ein Varianten-Verbund übergeben, oder man muss sich 
mit einer CAST-Anweisung (-» SYSTEM) behelfen. 


Die umgekehrte Umwandlung wird durch die Prozedur ValToStr 
durchgeführt. Die im LONGINT-Parameter l abgelegte Zahl wird in 
die Zeichenkette str umgewandelt und formatiert. Die Zahl wird in 
einem Feld der Grösse width (Absolutbetrag) positioniert. Das 
Vorzeichen von width bestimmt die Anordnung der Zahl im Feld. Bei 
einem positiven Wert von width wird die Zahl im Feld rechtsbündig, 
mit führenden Füllzeichen fillChar, sonst linksbündig mit nach¬ 
folgenden Füllzeichen, angeordnet. 


Für das Vorzeichen von l und dem Wert von signed gilt die gleiche 
Konvention wie bei StrToVal. Zahlen und Zeichenketten, die nur mit 
Conversions bearbeitet werden, benötigen daher keine weitere 
Bearbeitung. 


Beispiele: str:="03F9"; 

large:="3000000000"; (* >231 *) 

StrToVal(str,number,signed, 16, err); 

(* number: 1017 

signed: FALSE 

err: FALSE *) 

StrToVal(str,number,signed,10, err); 

(* number: Undefiniert 

signed: Undefiniert 

err: TRUE (Basis) *) 

StrToVal(large,number,signed,10,err); 

(* number: -1294967296 

signed: FALSE 

err: FALSE *) 

ValToStr(27,FALSE,str,8,5,'*',err); 

(* str: "***33" 
err: FALSE *) 

ValToStr (45054, FALSE, str, 16,-10, ' \err) ; 

(* str: "AFFE " 

err: FALSE *) 
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Anmerkung: 


) 


) 


Die interne Darstellung (Zweierkomplement) von 
3’000'000'000 (LONGCARD) ist gleich der internen 
Darstellung von -1'294’967'296 (LONGINT). 
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Coroutines 

Das Modul erlaubt die Handhabung von Coroutinen. Es bietet dieselben 
Prozeduren an, die das Modul SYSTEM in früheren Modula-2 
Versionen zur Verfügung stellte und folgt der Definition aus [PIM3]. 

DEFINITION MODULE Coroutines; 

FROM SYSTEM IMPORT 
ADDRESS; 

TYPE 

PROCESS=ADDRESS ; 

PROCEDÜRE TRANSFER(VAR source, destination: PROCESS); 
PROCEDÜRE NEWPROCESS(p: PROC; wsp: ADDRESS; size: 

LONGINT; 

VAR new: PROCESS); 


END Coroutines. 


Prozedur NEWPROCESS ruft eine neue Coroutine ins Leben, wobei die 
Prozedur proc diese neue Coroutine bildet. Die Variablen wsp und 
size bezeichnen den zur Verfügung gestellten Arbeitsspeicher, erstere 
gibt die Adresse, letztere die Grösse des Arbeitsspeichers. Die Variable 
new charakterisiert die neu kreierte Coroutine. Die Coroutine wird 
nicht gestartet, sondern nur initialisiert. 


Der Arbeitsspeicher muss alle lokalen Variablen der Coroutine und der 
von ihr aufgerufenen Prozeduren beinhalten. Es können daher keine 
allgemeingültigen Werte für die optimale Grösse des Arbeitsspeichers 
angegeben werden. 

TRANSFER suspendiert die durch source charakterisierte Coroutine, 
während mit de s t an der Stelle der Suspension fortgefahren wird. 
Wird source wieder fortgesetzt, wird die unmittelbar auf TRANSFER 
folgende Anweisung ausgeführt. 




Coroutines 


Anmerkung: 

) 


\ 


Der Typ PRO CE SS existiert nur aus Gründen der 
Kompatibilität und der Klarheit. Falls bevorzugt, 
kann er überall durch ADDRESS ersetzt werden. 
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FFPConversions 

Das Modul FFPConversions stellt die Prozeduren zur Um¬ 
wandlung von Gleitpunkt-Zahlen (Dezimalbrüchen) zwischen interner 
und lesbarer Darstellung und umgekehrt zur Verfügung. Dabei wird das 
spezielle FFP-Format verwendet. 

DEFINITION MODULE FFPConversions; 

FROM SYSTEM IMPORT 
FFP; 

PROCEDURE StrToReal(VAR s: ARRAY OF CHAR; VAR r: FFP; 

VAR err: BOOLEAN); 

PROCEDURE RealToStr(r: FFP; VAR s: ARRAY OF CHAR; 

m, n: INTEGER; expo: BOOLEAN; 

VAR err: BOOLEAN); 


END FFPConversions. 

Die Prozedur StrToReal wandelt die in str gespeicherte Gleit¬ 
punktzahl in die interne FFP-Darstellung um. Enthält die Zeichenkette 
nicht erlaubte Zeichen, oder kann die beschriebene Zahl nicht in einer 
FFP-Variablen dargestellt werden, erhält err den Wert TRUE. 

Die Prozedur RealToStr erlaubt vielseitige Umwandlungen von r in 
lesbare Darstellungsformen. Die resultierende Zeichenkette enthält 
genau m Zeichen, oder soviele wie s Platz bietet, falls m zu gross ist. Ist m 
positiv, werden notwendige Leerzeichen vor der Zahl angefügt, sonst 
werden sie angehängt. Die Anzahl Zeichen hinter dem Dezimalpunkt 
wird durch n gegeben. Falls in Berücksichtigung zur Feldgrösse die 
Anzahl der Dezimalstellen zu gross gewählt wurde, wird diese auf das 
entsprechende Maximum gekürzt. Ist n=0 wird kein Dezimalpunkt ge¬ 
schrieben. Der Parameter expo gibt an, ob die wissenschaftliche 
Schreibweise (Exponentialdarstellung) gewünscht ist. 
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Beispiele: r: = 12.9 7 6 

RealToStr(r,str,5,2,FALSE,err); 

(* str: "12.98" 
err: FALSE *) 

RealToStr(r,str,4,2,FALSE, err) ; 

(* str: "13.0" 
err: FALSE *) 

RealToStr(r,str,3,2,FALSE,err); 

(* str: " 13" 
err: FALSE *) 

RealToStr(r,str,2,2,FALSE,err); 

(* str: "13" 

err: FALSE *) 

RealToStr(r,str,1, 2,FALSE, err); 

(* str: Undefiniert 
err: TRUE *) 

RealToStr(r, str, -8, 2,FALSE,err); 

(* str: "12.98 
err: FALSE *) 

RealToStr(r,str, 10, 2, TRUE, err) ; 

(* str: " 1.30E+01" 

err: FALSE *) 

Mögliche Fehlerquellen (err=TRUE) sind ein negativer Wert von n, der 
Wert Null für m oder s beinhaltet zu wenig Zeichen, um die resultierende 
Zeichenkette abzuspeichern. 
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FFPInOut 

Dem Standardmodul RealInOut entsprechendes Modul für die Ein- 
und Ausgabe von Zahlen des Typs FFP. Der Ein- und Ausgabestrom 
wird vom Modul InOut kontrolliert. 

DEFINITION MODULE FFPInOut; 

FROM SYSTEM IMPORT 
FFP; 

VAR 

done:BOOLEAN; 

PROCEDURE WriteReal(r: FFP; m,n: INTEGER); 

PROCEDURE ReadReal(VAR r: FFP); 

END FFPInOut; 

Die Prozedur WriteReal schreibt die übergebene Zahl r in ein Feld 
der Grösse m, wobei im Maximum n Dezimalstellen geschrieben 
werden. Füllt die Darstellung das Feld nicht aus, wird das Feld mit 
Leerzeichen ausgefüllt. Ist die Feldgrösse positiv, werden die 
Leerzeichen vor die Zahl gesetzt, sonst werden sie angehängt. 


ReadReal liest eine Zeichenkette von der Eingabe (InOut) und 
wandelt diese in die FFP-Zahl r um. 

( 
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FileMessage 

FileMessage liefert lesbare Fehlermeldungen aus den Statuswerten des 
Moduls FileSystem. 

DEFINITION MODULE FileMessage; 

FROM FileSystem IMPORT 
Response; 

TYPE 

StrPtr = POINTER TO ARRAY [0..255] OF CHAR; 

PROCEDURE ResponseText(res; Response; VAR textPtr: 

StrPtr) ; 

END FileMessage. 


Die Prozedur ResponseText liefert aus dem Dateistatus res in 
textPtr einen Zeiger auf einen Text, der unmittelbar ausgegeben 
werden kann. 

Aufruf: var 

f: File; 
p: StrPtr; 

ResponseText(f.res, p); 

WriteString(p A ); WriteLn; 


Anmerkung: ResponseText gibt die Adresse der Zeichenkette 

im Konstantenbereich zurück, deshalb darf diese 
Zeichenkette nicht verändert werden! Die 
Zeichenkette darf auch nicht auf 256 Zeichen aufgefüllt 
werden. 
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FileNames 

Modul für die Behandlung von Dateinamen-Eingaben. 


DEFINITION MODULE FileNames; 


TYPE 

ReadProc=PROCEDURE(VAR CHAR); 
WriteProc=PROCEDURE(CHAR); 


CONST 

noEcho=WriteProc(NIL); 


PROCEDURE ReadFileName(VAR fname: ARRAY OF CHAR; 

VAR len: INTEGER; 
readProc: ReadProc; 
writeProc: WriteProc); 


PROCEDURE GetPath(VAR fname, path: ARRAY OF CHAR; 

VAR len: INTEGER); 

PROCEDURE GetExtension( 

VAR fname, extension: ARRAY OF CHAR; 
VAR len: INTEGER); 

PROCEDURE MakeFileName( 

VAR fname: ARRAY OF CHAR; 

VAR len: INTEGER; 

dev, dir, name, ext: ARRAY OF CHAR); 


END FileNames. 


ReadFileName liest einen Dateinamen mit den übergebenen Ein- 
und Ausgabe-Prozeduren, len gibt die Anzahl gelesenen Zeichen. Alle 
Zeichen bis 176C werden akzeptiert. 


ReadFileName(fname, len, Terminal.Read, noEcho); 
Benutzereingabe: df 1 : exec/sym/Alerts . sym <RETURN> 
fname="df1:exec/sym/Alerts.sym"; len=23; 

GetPath löscht die Pfadinformation aus fname und speichert diese in 
path. len wird entsprechend dem neuen Dateinamen gesetzt. 
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GetExtension arbeitet ähnlich wie GetPath, ausser dass die 
Erweiterung gelöscht wird. Als Erweiterung wird angenommen, was 
hinter dem letzten Punkt steht. 

MakeFileName verkettet die 4 übergebenen Zeichenketten 
aneinander und speichert den gesamten Dateinamen in f name. 
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FileSystem 

Das Standardmodul FileSystem bietet Prozeduren zur Dateibehandlung 
an. Es ermöglicht den sequentiellen, sowie den wahlweisen Zugriff auf 
Dateien. Lese- und Schreiboperationen können beliebig gemischt 
werden. Dateien, die mit dem Modul FileSystem bearbeitet werden, 
werden beim Programmabsturz oder -ende noch auf der Diskette 
vervollständigt und geschlossen. 


Die Anzahl der gleichzeitig verwendeten Dateien ist nur durch das 
Betriebssystem beschränkt. Im Gegensatz zu AmigaDOS (—» [DOS] ist 
der Dateizugriff durch FileSystem gepuffert. Dies kann den Zugriff 
bis zu Faktor 10 verschnellern. Die Puffergrösse muss beim Eröffnen der 
Datei festgelegt werden. 

DEFINITION MODULE FileSystem; 

FROM SYSTEM IMPORT 
ADDRESS,BYTE; 

FROM Dos IMPORT 
FileHandlePtr; 

TYPE 

CHARPtr; 

Response=( 

done, notdone*, lockErr, openErr, readErr, writeErr, 
seekErr,memErr,inüse,notFound,diskWriteProtected, 
deviceNotMounted,diskFull,deleteProtected, 
writeProtected,notDosDisk,noDisk 
); 

FileMode=(read,write,noBuffer); 

FileModeSet=SET OF FileMode; 

File=RECORD 

bufa,ela,ina,topa: CHARPtr; 
bufPos,filePos: LONGINT; 
file: FileHandlePtr; 
mode: FileModeSet; 
eof: BOOLEAN; 
res: Response; 

END; 

PROCEDURE Lookup(VAR f: File; name: ARRAY OF CHAR; 

bufferSize: CARDINAL; new: BOOLEAN); 
PROCEDURE Close(VAR f: File); 
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PROCEDURE 

PROCEDÜRE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


Delete(VAR f: File); 

SetPos(VAR f: File; pos: LONGINT); 

GetPos(VAR f: File; VAR pos: LONGINT); 

Length(VAR f: File; VAR pos: LONGINT); 

ReadChar(VAR f: File; VAR ch: CHAR); 

WriteChar(VAR f: File; ch: CHAR); 

ReadByteBlock(VAR f: File; 

VAR block: ARRAY OF BYTE); 
WriteByteBlock(VAR f: File; 

VAR block: ARRAY OF BYTE); 
ReadBytes(VAR f: File; adr: ADDRESS; 

len: LONGINT; VAR actual: LONGINT); 
WriteBytes(VAR f: File; adr: ADDRESS; 

len: LONGINT; VAR actual: LONGINT); 


END FileSystem. 


Eine Datei wird mit dem strukturierten Typ File idenifiziert. Für den 
Anwender sind davon jedoch nur die Felder res und eof von 
Bedeutung. Das Feld res enthält das Resultat der zuletzt ausgeführten 
Dateimanipulation, während eof das Dateiende anzeigt. Das 
Resultatsfeld sollte nach jedem Aufruf einer Prozedur aus 
FileSystem kontrolliert werden, die Prüfung auf das Dateiende 
muss.nur nach Lesezugriffen erfolgen. Die verbleibenden Felder 
verwalten den Puffer und stellen die Verbindung zu AmigaDOS her. 


Der Aufzählungstyp Response enthält die möglichen Zustände, die 
nach einem Dateizugriff auftreten können. Im Normalfall enthält das 
Feld res den Wert done, was bedeutet, dass die letzte Operation 
erfolgreich ausgeführt wurde. Nebst der allgemeinen Fehlermeldung 
notDone enthält Response einige AmigaDOS-spezifische Meldungen. 


Um die Behandlung von Fehlersituationen zu vereinfachen, gilt 
folgende Regel: Alle Prozeduren ausser Lookup und CI ose versuchen 
die Operation nur auszuführen, falls das Feld res gleich dem Wert 
done ist. So ist es möglich, eine Datei vollständig zu lesen oder zu 
schreiben, ohne jedesmal auf einen Fehler testen zu müssen. Lookup 
und CI ose sind aus folgenden Gründen ausgenommen: 


Lookup kann keine definierten Werte in der File-Variablen 
erwarten, da erst der Aufruf dieser Prozedur die Variable mit 
gültigen Werten belegt. 
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Close muss versuchen, eine Datei auch dann zu schliessen, 
wenn zuvor ein Fehler aufgetreten ist. 

Es dürfen keine Operationen ausser Lookup auf nichtinitialisierte 
Filevariablen ausgeführt werden. 

Beispiel: var 

f: FILE; ch: CHAR; 

BEGIN 

Lookup(f,"Datei",1024,FALSE); 

Assert(f.res=done,"Lookup misslungen!"); 

LOOP 

ReadChar(f, ch) ; 

IF f.eof OR (f.res#done) THEN 
EXIT 
END 

Bearbeite(ch) 

END; 

(* Close auf jeden Fall aufrufen *) 

Close(f) 

END 

Mit der Prozedur Lookup wird eine Datei zum Lesen und/oder zum 
Schreiben eröffnet. Der Parameter name enthält den Namen der zu 
eröffnenden Datei. Mit new kann angegeben werden, ob eine neue oder 
eine bereits bestehende Datei eröffnet werden soll. Hat new den Wert 
TRUE und es existiert eine Datei mit dem angegebenen Namen, so wird 
diese beim Eröffnen gelöscht. Die Filevariable wird dem Ausgang der 
Operation entsprechend initialisiert. 


Die Daten einer Datei werden zwischengespeichert. So resultieren 
mehrere Lesebefehle mit nur einem Lesebefehl auf der Datei, und 
Schreibbefehle werden erst auf der Diskette ausgeführt, wenn der zur 
Pufferung verwendete Puffer überläuft. Die Grösse des verwendeten 
Puffers wird beim Lookup-Befehl mit dem Parameter buff er 
gesteuert. Wird keine Pufferung gewünscht, kann auch 0 übergeben 
werden. 


Close schliesst eine zuvor mit Lookup eröffnete Datei. Noch im 
Puffer verbliebene Daten werden vorher noch auf die Datei geschrieben. 
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Delete löscht die angebene Datei. Damit der Parameter initialisiert 
ist, muss die Datei zuerst geöffnet werden. 


Mit SetPos kann eine beliebige Position innerhalb der Datei 
gesprungen werden. Es kann nicht über das (aktuelle) Dateiende 
positioniert werden; ein solcher Aufruf führt zu einem Fehler. Nach 
einem Fehler ist der innere Zustand einer Filevariablen Undefiniert. Es 
ist im allgemeinen nicht möglich, mit dieser Datei weiter zu arbeiten. 
Das Feld res darf nicht auf done zurückgesetzt werden. 

GetPos gibt die aktuelle Position innerhalb der Datei zurück. 

Length gibt die aktuelle Dateilänge zurück. Dies ist zugleich der 
höchste zulässige Wert, der bei SetPos verwendet werden darf. 


ReadChar und WriteChar sind die Prozeduren zum Lesen und 
Schreiben von einzelnen Zeichen. 


ReadByteBlock und WriteByteBlock sind Prozeduren, die vor 
allem eingesetzt werden sollen, wenn beliebige Variablen eines 
strukturierten Typs gelesen oder geschrieben werden sollen. 

ReadBytes und WriteBytes arbeiten ähnlich wie 
ReadByteBlock und WriteByteBlock. Der Datenbereich wird 
hier über die Adresse adr und die Längenangabe length identifiziert. 
Der Parameter actual gibt an, wieviele Byte gelesen beziehungsweise 
geschrieben werden konnten. 


Erkennen des Dateiendes bei Leseoperationen 


Das Feld eof erhält den Wert TRUE, wenn eine Leseoperation genau 
hinter dem letzten gültigen Byte der Datei gestartet wird. Eine 
Leseoperation, die eof setzt, kann deshalb nie gültige Daten von der 
Datei lesen, obwohl res auf dem Wert done verbleibt. Wenn das 
Dateiende während einer Leseoperation (ReadBytes oder 
ReadByteBlock) erreicht wird, bleibt eof auf FALSE. Der 
Resultatswert res einer solchen Leseoperation ist abhängig von der 
verwendeten Methode. 
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ReadBytes: Da ReadBytes die Anzahl der gelesen Bytes immer 

angibt, können beim Dateiende zwei Fälle auftreten: 

1. In der Datei sind zwischen 1 und Blockgrösse 
Bytes bis zum Dateiende vorhanden. Diese 
werden in den Block eingelesen und die aktuelle 
Länge wird entsprechend gesetzt. 

eof = FALSE 
res = done 

2. Die Datei wurde bereits vollständig gelesen. Das 
Dateiende ist erreicht, eof ist wahr und der 
Lesezugriff ist erfolgreich. 

eof = TRUE 
res = done 


ReadByteBlock: Diese Prozedur kennt keine Möglichkeit, 

unvollständige Blöcke anzuzeigen. Dadurch 
ergibt sich ein von ReadBytes unterschiedliches 
Verhalten: 

1. In der Datei sind zwischen 1 und Blockgrösse-1 
Byte bis zum Dateiende vorhanden. Ein 
unvollständiger Block ist jedoch kein gültiges 
Resultat dieser Operation, der Inhalt von Block 
ist Undefiniert. 

eof = FALSE 
res = notdone 

2. Die Datei wurde bereits vollständig gelesen. Das 
Dateiende ist erreicht, eof ist wahr und der 
Lesezugriff ist erfolgreich. 

eof = TRUE 
res = done 



Heap 


Das Modul Heap stellt die für dynamische Speicher-Allozierung und 
Deallozierung benötigten Prozeduren zur Verfügung. Es behält die 
Kontrolle über alle allozierten Speicherbereiche, und gibt sie im Falle 
eines Programmabsturzes oder am Programmende wieder frei. 

DEFINITION MODULE Heap; 

FROM SYSTEM IMPORT 
ADDRESS; 

PROCEDURE Allocate(VAR adr: ADDRESS; size: LONGINT); 
PROCEDURE Deallocate(VAR adr: ADDRESS); 

PROCEDÜRE Available(chipMem: BOOLEAN): LONGINT; 

PROCEDURE Largest(chipMem: BOOLEAN): LONGINT; 

(* spezielle Funktionen *) 

PROCEDURE AllocMem(VAR adr: ADDRESS; size: LONGINT; 

chipMem: BOOLEAN); 

PROCEDURE Alloc(VAR adr: ADDRESS; size: LONGINT; 

chipMem: BOOLEAN; level: INTEGER); 

PROCEDURE BlockSize(adr: ADDRESS): LONGINT; 

END Heap. 


Das Modul Heap ist eine einfache Schnittstelle zu den Funktionen der 
Speicherverwaltung des Betriebsystem. Es werden die Exec-Funktionen 
(—» Abschnitt Exec) AllocMem, FreeMem und AvailMem 
verwendet. Die durch Prozeduren aus Heap angeforderten 
Speicherblöcke werden verkettet. Dies ermöglicht später die Freigabe 
der allozierten Speicherblöcke. Diese Verkettung benötigt etwas 
zusätzlichen Speicher und Zeit. Die Prozeduren Alloc und 
Blocksize sind auf diese Zusatzinformation angewiesen. 
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Folgende Informationen werden unmittelbar vor dem allozierten Block 
abgelegt: 

( 

next: ADDRESS; (* Zeiger auf nächsten Block oder NIL *) 

level: Byte; (* Level, auf dem der Block alloziert 

wurde *) 

size: [1..2 24 ]; (* Grösse des Blocks *) 

Diese Zusatzinformationen benötigen ingesamt 8 Byte. Die Funktion des 
Level-Elements ist im Kapitel des Laufzeitsystems beschrieben. 


Die Prozedur Allocate alloziert einen Bereich der in Byte gegebenen 
Grösse size und weist dessen Adresse dem Parameter adr zu. Wird 
eine Grösse von 2 24 oder mehr Byte (>=16 MByte) angefordert, bricht 
das aufrufende Programm mit einem Laufzeitfehler ab. Ist nicht mehr 
genügend Speicher vorhanden, enthält adr den Wert NIL. Ein 
erfolgreich angeforderter Speicherblock wird mit Nullen initialisiert. 

Deallocate gibt einen vorher mit Allocate, AllocMem oder 
Alloc reservierten Speicherbereich wieder frei und weist dem 
gegebenen Zeiger den Wert NIL zu. Weist der Zeiger auf keinen vorher 
durch Allocate, AllocMem oder Allocate reservierten 
Speicher, wird der Aufruf ignoriert. 


Available gibt die Grösse des gesamten freien Speicherplatzes 
zurück. Ist der Parameter chipMem auf FALSE gesetzt, wird die 
Speichergrösse in Chip- und Fast-Memory zusammen, sonst nur 
diejenige in Chip-Memory zurückgegeben. Dieser Speicherplatz ist 
allerdings nicht als zusammenhängender Bereich erhältlich, sondern 
setzt sich aus beliebigen Blöcken zusammen. 

Lar ge st gibt die Grösse des grössten, aneinanderhängenden 
Speicherbereiches zurück. Für den Parameter chipMem gilt das gleiche 
wie bei Available. 


Die Prozeduren Alloc und AllocMem sind Varianten der 
Allocate-Prozedur. Der Parameter chipMem gibt an, ob der 
Speicher im Chip- oder im Fast-Memory (-> [RKM1]) alloziert werden 
soll. Ist der Wert TRUE, wird der Speicher im Chip-Memory alloziert. 
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ist der Wert FALSE, wird der Speicher nur dann im Chip-Memory 
alloziert, falls im Fast-Memory zu wenig oder gar kein Platz ist. In 
jedem Fall wird der Speicherbereich mit Nullen initialisiert. 


Die Prozedur Alloc erlaubt zusätzlich die Angabe der Level- 
Information, während ansonsten das Resultat der Funktion 
Arts . CurrentLevel () eingesetzt wird. 


BlockSize ist eine Hilfsfunktion, die es erlaubt, nachträglich die Grösse 
eines Speicherbereichs abzufragen. Wurde der Bereich durch keine der 
Funktionen Allocate, AllocMem und Alloc angefordert, wird 
der Wert 0 zurückgegeben. 


Warnung: Greifen Sie nie auf einen Zeiger zu, dessen 

Speicherbereich nicht alloziert oder bereits dealloziert 
wurde! Ein Absturz ist damit garantiert! Verwenden 
Sie Storage an Stelle von Heap, wenn Sie keine 
_Ausnahmebehandlungen vorsehen wollen._ 


Anmerkung: Aus Gründen der Portabilität sollte wenn möglich 

Allocate den Prozeduren AllocMem und Alloc 
vorgezogen werden. 
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InOut 

Standard-Modul für formatierte Ein- und Ausgabe auf Bildschirm oder 
auf Dateien. Die primäre Ein- und Ausgabe bezieht sich auf die Ein- und 
Ausgabeströme wie im Kapitel Terminal beschrieben, kann jedoch auf 
Dateien umgelenkt werden. Dieses Umlenken ist unabhängig von der 
Umlenkmöglichkeit von AmigaDOS (—> [DOS]) 


DEFINITION MODULE InOut; 
FROM SYSTEM IMPORT 
BYTE; 

IMPORT ASCII; 


CONST 

eol = ASCII.eol; 
VAR 

done:BOOLEAN; 
termCh:CHAR; 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

END InOut 


OpenInput(defExt: ARRAY OF CHAR); 
OpenOutput(defExt: ARRAY OF CHAR); 

Closeinput; 

CloseOutput; 

Read(VAR ch: CHAR); 

ReadString(VAR str: ARRAY OF CHAR); 
Readlnt(VAR x:INTEGER); 

ReadLonglnt(VAR x: LONGINT); 

ReadCard(VAR x: CARDINAL); 
ReadLongCard(VAR x: LONGCARD); 
ReadBytes(VAR blk: ARRAY OF BYTE); 

Write(ch: CHAR); 

WriteLn; 

WriteString(str: ARRAY OF CHAR); 
Writelnt(x: LONGINT; n: CARDINAL); 
WriteCard(x: LONGCARD; n: CARDINAL); 
WriteOct(x: LONGINT; n: CARDINAL); 
WriteHex(x: LONGINT; n: CARDINAL); 
WriteBytes(VAR blk: ARRAY OF BYTE); 


( 
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Open Input und OpenOutput lesen beide einen Dateinamen von 
der Tastatur (Aufruf von Terminal .Read, -» Abschnitt Terminal) und 
) öffnen eine Ein-, beziehungsweise eine Ausgabedatei. Die Variable 
done enthält nach erfolgreicher Eröffnung den Wert TRUE. Endet der 
eingegebene Name mit einem Punkt wird die Zeichenkette 
de f Ext an den Dateinamen angehängt. 


Closeinput und CloseOutput schliessen eine zuvor eröffnete 
Ein- oder Ausgabedatei. Der Eingabestrom kommt von der Tastatur und 
die Ausgabe geschieht wieder über den Bildschirm (Terininal. Read, 
Terminal .Write). 


) ReadString liest eine Zeichenkette ein, d.h eine Folge von Zeichen, 
die weder Leerzeichen noch Kontrollzeichen enthält. Führende 
Leerzeichen werden ignoriert. Die Eingabe wird durch jedes 
Kontrollzeichen oder ein Leerzeichen (<"") beendet. Soll ein 
Leerzeichen in die Zeichenkette eingefügt werden, muss dieses in 
Anführungszeichen (") gesetzt werden (vgl. Arguments). 


Readlnt, ReadCard, ReadLonglnt und ReadLongCard lesen 
eine Zeichenkette ein und wandeln diese entsprechend um. Führende 
Leerzeichen werden ignoriert. 


ReadBytes kann nur angewendet werden, wenn eine Eingabedatei 
eröffnet wurde. Es werden soviele Byte gelesen, wie blk Platz bietet. 

) Writelnt, WriteCard, WriteOct und WriteHex schreiben die 
übergebene Zahl x mit mindestens n Zeichen. Werden nicht alle n 
Zeichen benötigt, werden der Zahl Leerzeichen (Writelnt, 
WriteCard) beziehungsweise Nullen (WriteOct, WriteHex) 
vorangestellt. 


WriteBytes schreibt den gegebenen Block auf eine zuvor eröffnete 
Ausgabedatei. 


Die Variable termCh enthält das Abschlusszeichen nach einem Aufruf 
) der Prozeduren ReadSt ring, Readlnt, ReadLonglnt, 
ReadCard und ReadLongCard. 
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Anmerkung: 


Anmerkung: 


Anmerkung: 


Solange Ein- und Ausgabe nicht explizit umgelenkt 
wurde (Aufruf von Openlnput oder 
OpenOutput) wird diese über das Modul Terminal ( 
abgewickelt. Für Informationen über die in Terminal 
verwendeten Ein- und Ausgabekanäle muss im 
Abschnitt Terminal nachgeschlagen werden. 

Während INTEGER-Werte (CARDINAL) durch die 
gleiche Prozedur geschrieben werden können wie 
LONGINT-Werte (LONGCARD), wird für deren 
Eingabe eine eigene Prozedur benötigt, da bei 
Variablen-Parameter die formalen und die aktuellen 
Parameter typenkompatibel sein müssen. INTEGER 
(CARDINAL) und LONGINT (LONGCARD) sind ( 
jedoch nur zuweisungskompatibel. 


Um die Wahl zwischen Bildschirmausgabe und 
Dateiausgabe wählbar zu halten, sollte nach dem 
Aufruf von OpenOutput unbedingt die Variable 
termCh abgefragt werden. Enthält die Variable 
termCh das Nullzeichen (OC), wurde ein leerer 
Name eingegeben. Das Programm sollte dann normal 
fortgesetzt werden. 
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LongRealConversions 

Das Modul LongRealConversions stellt die Prozeduren zur Um¬ 
wandlung von Gleitpunkt-Zahlen grosser Genauigkeit (Dezimalbrüche) 
zwischen interner und lesbarer Darstellung und umgekehrt zur 
Verfügung. 

DEFINITION MODULE LongRealConversions; 

PROCEDURE StrToReal(VAR s: ARRAY OF CHAR; 

VAR r: LONGREAL; 

VAR err: BOOLEAN); 

PROCEDURE RealToStr(r: LONGREAL; VAR s: ARRAY OF CHAR; 

m, n: INTEGER; expo: BOOLEAN; 

VAR err: BOOLEAN); 

END LongRealConversions. 

Die Prozedur StrToReal wandelt die in str gespeicherte Gleit¬ 
punktzahl in die interne LONGREAL-Darstellung um. Enthält die 
Zeichenkette nicht erlaubte Zeichen, oder kann die beschriebene Zahl 
nicht in einer REAL-Variablen dargestellt werden, erhält err den Wert 
TRÜE. 


Die Prozedur RealToStr erlaubt vielseitige Umwandlungen von r in 
lesbare Darstellungsformen. Die resultierende Zeichenkette enthält 
genau m Zeichen, oder soviele wie s Platz bietet, falls m zu gross ist. Ist m 
positiv, werden notwendige Leerzeichen vor der Zahl angefügt, sonst 
werden sie angehängt. Die Anzahl Zeichen hinter dem Dezimalpunkt 
wird durch n gegeben. Falls in Berücksichtigung zur Feldgrösse die 
Anzahl der Dezimalstellen zu gross gewählt wurde, wird diese auf das 
entsprechende Maximum gekürzt. Ist n=o wird kein Dezimalpunkt ge¬ 
schrieben. Der Parameter expo gibt an, ob die wissenschaftliche 
Schreibweise (Exponentialdarstellung) gewünscht ist. 
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Beispiele: r : = 12.9 7 6 

RealToStr(r,str,5,2,FALSE,err); 

(* str: "12.98" 
err: FALSE *) 

RealToStr(r,str,4,2,FALSE, err) ; 

(* str: "13.0" 
err: FALSE *) 

RealToStr(r,str,3,2,FALSE, err) ; 

(* str: " 13" 
err: FALSE *) 

RealToStr(r,str,2,2,FALSE,err); 

(* str: "13" 

err: FALSE *) 

RealToStr(r,str,1,2,FALSE,err); 

(* str: Undefiniert 
err: TRUE *) 

RealToStr(r,str,-8,2,FALSE, err) ; 

(* str: "12.98 
err: FALSE *) 

RealToStr(r,str,10,2,TRUE,err); 

(* str: " 1.30E+01" 

err: FALSE *) 

Mögliche Fehlerquellen (err=TRUE) sind ein negativer Wert von n, der 
Wert Null für m oder s beinhaltet zu wenig Zeichen, um die resultierende 
Zeichenkette abzuspeichem. 
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LongReallnOut 

Dem Standardmodul ReallnOut entsprechendes Modul für die Ein- 
und Ausgabe von Zahlen des Typs LONGREAL. Der Ein- und 
Ausgabestrom wird vom Modul InOut kontrolliert. 

DEFINITION MODULE LongReallnOut; 

VAR 

done:BOOLEAN; 

PROCEDURE WriteReal(r:LONGREAL; m, n:INTEGER); 

PROCEDURE ReadReal(VAR r:LONGREAL); 

END LongReallnOut; 

Die Prozedur WriteReal schreibt die übergebene Zahl r in ein Feld 
der Grösse m, wobei im Maximum n Dezimalstellen geschrieben 
werden. Füllt die Darstellung das Feld nicht aus, wird das Feld mit 
Leerzeichen ausgefüllt. Ist die Feldgrösse positiv, werden die 
Leerzeichen vor die Zahl gesetzt, sonst angehängt. 


ReadReal liest eine Zeichenkette von der Eingabe (InOut) und 
wandelt sie in die LONGREAL-Zahl r um. 
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Standard Modul für einige transzedente Funktionen. Weitere 
Funktionen sind direkt auf diesen aufbaubar. 

DEFINITION MODULE MathLibO; 

CONST 

e=2.7182818284; 
pi=3.1415926536; 

PROCEDURE s qrt(x:REAL) :REAL; 

PROCEDURE exp(x: REAL):REAL; 

PROCEDURE ln(x:REAL):REAL; 

PROCEDURE sin(x:REAL):REAL; 

PROCEDURE cos(x:REAL):REAL; 

PROCEDURE arctan(x:REAL):REAL; 

END MathLibO. 


Die Einheit der Argumente für sin und cos sowie des Resultats von 
arctan ist Bogenmass (Radiant Abk. rad). Dabei gilt folgende Formel: 


1 rad = 


180° 

7t 


ln gibt den natürlichen Logarithmus (Basis e) von x zurück. 

Warnung: Funktionsrufe mit Argumenten, deren Resultatwertll 

nicht definiert ist (beispielsweise Quadratwurzel oder! 
Logarithmus einer negativen Zahl), führen zum| 
_Abbruch des Programms._ 


Beispiele für aufbauende Funktionen: 

PROCEDURE tan(x: REAL): REAL; 
BEGIN 

RETURN sin(x)/cos(x) 

END tan; 
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PROCEDURE log(x: REAL): REAL; 

BEGIN 

RETURN ln(x) / ln(10) 

END log; 

PROCEDURE RadToAngle(rad: REAL); REAL; 

BEGIN 

RETURN rad * 180 / pi 
END RadToAngle; 

PROCEDURE AngleToRad(angle: REAL); REAL; 

BEGIN 

RETURN angle * pi / 180 
END RadToAngle; 

Die analogen Beispiele gelten auch für die Moduln MathLibFFP und 
MathLibLong. Da die Liste der bekanntesten transzedenten Funktionen 
bereits sehr gross ist, selten jedoch wirklich viele gebraucht werden, 
wurde auf die Definition weiterer MathLib...-Moduln verzichtet. Obige 
Beispiele zeigen, dass die Definition zusätzlicher Moduln keine 
Schwierigkeiten bereiten sollte. 
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MathLibFFP 


Modul, das zur Anwendung kommt, wenn aus Gründen der Portabilität 
das Modul MathTrans nicht verwendet werden soll. Es entspricht in der 
Funktionalität dem Modul MathLibO, verwendet jedoch für alle 
Argumente den Typ FFP. 

DEFINITION MODULE MathLibFFP; 

FROM SYSTEM IMPORT 
FFP ; 

CONST 

e=2.7182818284; 
pi=3.1415926536; 

PROCEDURE sqrt(x:FFP):FFP; 

PROCEDURE exp(x:FFP):FFP; 

PROCEDURE ln(x:FFP):FFP; 

PROCEDURE sin(x:FFP):FFP; 

PROCEDURE cos(x:FFP):FFP; 

PROCEDURE arctan(x:FFP):FFP; 

END MathLibFFP. 

Die Einheit der Argumente für sin und cos sowie des Resultats von 
arctan ist Bogenmass (Radiant Abk. rad). Dabei gilt folgende Formel: 


ln gibt den natürlichen Logarithmus (Basis e) von x zurück. 


12-44 




MathLibFFP 


Beispiel: module mlffp 

FROM MathLibFFP IMPORT (* !! *) 

e, pi, 

sqrt, exp, ln, sin, cos, arctan; 

TYPE REAL = FFP; (*!!*) 

VAR 

rl, r2: REAL; 

BEGIN 


Anmerkung: Im obigen Beispiel müssen nur die beiden mit (*!!*) 

markierten Zeilen geändert werden, falls der Typ FFP 
nicht vorhanden ist. 
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MathLibLong 


Standard Modul für einige mathematische Grundfunktionen. Diese 
Prozeduren arbeiten mit dem Typ LONGREAL. 


DEFINITION MODULE MathLibLong; 

CONST 

e=2.71828182845904523536; 
pi=3.14159265358979323846; 

PROCEDURE sqrt(x:LONGREAL):LONGREAL; 

PROCEDÜRE exp(x: LONGREAL):LONGREAL; 

PROCEDURE ln(x:LONGREAL):LONGREAL; ( 

PROCEDURE sin(x:LONGREAL):LONGREAL; 

PROCEDURE cos(x:LONGREAL):LONGREAL; 

PROCEDURE arctan(x:LONGREAL):LONGREAL; 

END MathLibLong. 


Die Einheit der Argumente für sin und cos sowie des Resultats von 
arctan ist Bogenmass (Radiant Abk. rad). Dabei gilt folgende Formel: 


1 rad = 


180° 

n 


ln gibt den natürlichen Logarithmus (Basis e) von x zurück. 

Warnung: Funktionsrufe mit Argumenten, deren Resultatwert 

nicht definiert ist (beispielsweise Quadratwurzel oder 
Logarithmus einer negativen Zahl), führen zum 
Abbruch des Programms. 
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RandomNumber 

Dieses Modul generiert Pseudo-Zufallszahlen, wie sie in 
Spielprogrammen oder Simulationen benötigt werden. Dabei wird 
immer von einem Ausgangswert aus eine Zufallszahl sowie ein neuer 
Ausgangswert erzeugt. 

DEFINITION MODULE RandomNumber; 

PROCEDURE Random():REAL; 

PROCEDURE RND(nr: INTEGER):INTEGER; 

PROCEDURE GetSeed(VAR seed: LONGINT); 

PROCEDURE PutSeed(seed: LONGINT); 

END RandomNumber. 


Random gibt eine Pseudo-Zufallszahl im Bereich von 0 bis 1 ([0,1[) 
zurück. Die erzeugten Zahlen sind gleichmässig über diesen Bereich 
verteilt. Mit dem vorgegebenen Startwert beträgt die Periode 
mindestens 229. 

Die Funktion RND gibt eine ganze Zahl zwischen 0 und nr-1 
(beziehungsweise nr+1 für negatives nr) zurück. Ein Würfel würde 
folgendermassen simuliert: 

| wurf:=1+RND(6) ; 

Get Seed weist dem Parameter seed den aktuellen Ausgangswert zu. 


PutSeed setzt einen neuen Ausgangswert. Dieser muss positiv sein. 
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RealConversions 

Das Modul RealConversions stellt die Prozeduren zur Um¬ 
wandlung von Gleitpunkt-Zahlen (Dezimalbrüche) zwischen interner 
und lesbarer Darstellung und umgekehrt zur Verfügung. 


DEFINITION MODULE RealConversions; 

PROCEDURE StrToReal(VAR s: ARRAY OF CHAR; VAR r: REAL; 

VAR err: BOOLEAN); 

PROCEDURE RealToStr(r: REAL; VAR s: ARRAY OF CHAR; 

m, n: INTEGER; expo: BOOLEAN; 

VAR err: BOOLEAN); ( 


END RealConversions. 


Die Prozedur StrToReal wandelt die in str gespeicherte Gleit¬ 
punktzahl in die interne REAL-Darstellung um. Enthält die Zeichenkette 
nicht erlaubte Zeichen, oder kann die beschriebene Zahl nicht in einer 
REAL-Variablen dargestellt werden, erhält err den Wert TRUE. 


Die Prozedur RealToStr erlaubt vielseitige Umwandlungen von r in 
lesbare Darstellungsformen. Die resultierende Zeichenkette enthält 
genau m Zeichen, oder soviele wie s Platz bietet, falls m zu gross ist. Ist m 
positiv, werden notwendige Leerzeichen vor der Zahl angefügt, sonst 
werden sie angehängt. Die Anzahl Zeichen hinter dem Dezimalpunkt 
wird durch n gegeben. Falls in Berücksichtigung zur Feldgrösse die 
Anzahl der Dezimalstellen zu gross gewählt wurde, wird diese auf das 
entsprechende Maximum gekürzt. Ist n=0 wird kein Dezimalpunkt ge¬ 
schrieben. Der Parameter expo gibt an, ob die wissenschaftliche 
Schreibweise (Exponentialdarstellung) gewünscht ist. 
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Beispiele: r: =12.9 7 6 

RealToStr(r,str,5,2,FALSE,err); 

(* str: M 12.98" 
err: FALSE *) 

RealToStr(r,str,4,2,FALSE,err); 

(* str: "13.0" 
err: FALSE *) 

RealToStr(r,str,3,2,FALSE,err); 

(* str: " 13" 
err: FALSE *) 

RealToStr(r,str,2,2,FALSE,err); 

(* str: "13" 

err: FALSE *) 

RealToStr(r,str,1,2,FALSE,err); 

(* str: Undefiniert 
err: TRUE *) 

RealToStr(r,str,-8,2,FALSE, err); 

(* str: "12.98 
err: FALSE *) 

RealToStr(r,str,10,2,TRUE, err) ; 

(* str: " 1.30E+01" 

err: FALSE *) 

Mögliche Fehlerquellen (er r=TRUE) sind ein negativer Wert von n, der 
Wert Null für m oder dass s zuwenig Zeichen beinhaltet, um die 
resultierende Zeichenkette abzuspeichern. 
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ReallnOut 

Standardmodul für die Ein- und Ausgabe von Zahlen des Typs REAL. 
Der Ein- und Ausgabestrom wird vom Modul InOut kontrolliert. 

DEFINITION MODULE ReallnOut; 

VAR 

done:BOOLEAN; 

PROCEDURE WriteReal(r: REAL; m,n: INTEGER); 

PROCEDURE ReadReal(VAR r: REAL); 

END ReallnOut; 

Die Prozedur WriteReal schreibt die übergebene Zahl r in ein Feld 
der Grösse m, wobei im Maximum n Dezimalstellen geschrieben 
werden. Füllt die Darstellung das Feld nicht aus, wird das Feld mit 
Leerzeichen ausgefüllt. Ist die Feldgrösse positiv, werden die 
Leerzeichen vor die Zahl gesetzt, sonst werden sie angehängt. 

ReadReal liest eine Zeichenkette von der Eingabe (InOut) und 
wandelt sie in die REAL-Zahl r um. 
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DEFINITION MODULE Scan; 

TYPE 

ReadProc=PROCEDURE(VAR CHAR); 

PROCEDURE ScanString(read: ReadProc; 

VAR str: ARRAY OF CHAR; 
VAR len: INTEGER; 

VAR termCh: CHAR); 


END Scan. 

Die Prozedur ScanString liest eine Zeichenkette ein und speichert 
diese in str. Führende Leerzeichen werden übersprungen. Die 
Leseprozedur muss dazu übergeben werden. Der Lesevorgang der 
Zeichenkette wird durch ein Leerzeichen oder jedes Kontrollzeichen 
(ch < " ") beendet. Soll ein Leerzeichen in die Zeichenkette eingefügt 
werden, muss dieses in Anführungszeichen (") gesetzt werden. Das 
letztgelesene Zeichen wird in termCh gespeichert, die Länge der 
Zeichenkette in len. 


Beispiele: 

Dieser Text . .. 

"Dieser" wird zurückgegeben. 
Dies"mal ist's" besser 

"Diesmal ist ' s" wird zurückgegeben. 
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Dieses Standardmodul stellt die zur dynamischen Speicherverwaltung 
notwendigen Prozeduren zur Verfügung. Es behält die Kontrolle über 
alle allozierten Speicherbereiche, und gibt sie im Falle eines 
Programmabsturzes oder am Programmende wieder frei. 

DEFINTION MODULE Storage; 

FROM SYSTEM IMPORT 
ADDRESS; 

PROCEDURE ALLOCATE(VAR adr: ADDRESS; size: LONGINT); 
PROCEDURE DEALLOCATE(VAR adr: ADDRESS; size: LONGINT); 
PROCEDURE Available(size: LONGINT): BOOLEAN; 

END Storage. 


Prozedur ALLOCATE alloziert einen Bereich der in Byte gegebenen 
Grösse und weist dessen Adresse dem Parameter adr zu. Ist nicht 
genügend Speicher vorhanden, bricht das aufrufende Programm mit 
einem Laufzeitfehler ab. 

DEALLOCATE gibt einen zuvor allozierten Bereich an der Adresse adr 
wieder frei. Der übergebene Zeiger erhält den Wert NIL. Um mit 
gebräuchlichen Versionen kompatibel zu bleiben, muss die Grösse 
übergeben werden, der Wert wird allerdings ignoriert. 

Die Funktion Available gibt den Wert TRUE zurück, falls ein 
Speicherbereich der gewünschten Grösse zur Verfügung steht. 


Anmerkung: Amiga Modula-2 unterstützt die automatische 

Umsetzung von NEW und DISPOSE in ALLOCATE 
und DEALLOCATE nicht mehr. ALLOCATE und 
DEALLOCATE müssen explizit aufgerufen werden. 
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Das Modul Str bietet einfache Manipulationsprozeduren für 
Zeichenketten an. Entgegen unserer Philosophie, (fast) alles in 
Modula-2 zu programmieren, ist dieses Modul in Assembler 
implementiert. Für den Benutzer spielt dies jedoch keine Rolle, die 
Anwendung ist durch die Modula-2-Definition gegeben. 


DEFINITION MODULE Str; 


CONST 
first=0; 
noOccur=-l; 
last=-l; 


PROCEDURE 

PROCEDURE 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


Length(str: ARRAY OF CHAR): LONGCARD; 

CopyPos(VAR dest: ARRAY OF CHAR; 
src: ARRAY OF CHAR; 
destPos: LONGCARD); 

Copy(VAR dest: ARRAY OF CHAR; 

src: ARRAY OF CHAR); 

Concat(VAR dest: ARRAY OF CHAR; 
src: ARRAY OF CHAR); 

Compare(strl, str2: ARRAY OF CHAR): LONGINT; 
FirstPos(str: ARRAY OF CHAR; from: LONGINT; 
ch: CHAR): LONGINT; 

LastPos(str: ARRAY OF CHAR; to: LONGINT; 

ch: CHAR): LONGINT; 

CapString(VAR str: ARRAY OF CHAR); 


) END Str. 


Dieses Modul stellt die wichtigsten Prozeduren zur Manipulation von 
Zeichenketten zur Verfügung. Alle Routinen wurden in Assembler 
programmiert, um möglichst kompakt und schnell zu sein. Die 
Kompaktheit einer solchen Implementation ist aus der Grösse der 
Objektdatei leicht ersichtlich. Bei der Auswahl wurden nur häufig 
gebrauchte, einfache Prozeduren berücksichtigt. 


Die Prozeduren verwenden wenn möglich Wertparameter. Dies 
ermöglicht die Übergabe konstanter Zeichenketten, was jedoch nicht 
immer effizient ist: 
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Beispiel: CONST 

halloWelt = "Hallo Welt" ( 

Length(halloWelt) = SIZE(halloWelt) 

Entgegen der normalen Behandlung von Wertparametern werden von 
den übergebenen Zeichenketten keine lokalen Kopien erstellt. Dadurch 
erreicht dieses Modul dieselbe Effizienz, die mit Variablen-Parametem 
erreicht werden kann. Bei der Prozedur CopyPos kan dies aber zu 
Problemen führen, falls innerhalb der Zeichenkette umkopiert werden 
soll. 

Die Funktion Length gibt die Anzahl Zeichen in str zurück. Ein ^ 
abschliessendes Nullzeichen wird nicht gezählt. Es gilt also immer 
folgenden Ungleichung: 

0 < Length(string) < HIGH(string) + 1 

Die Prozedur CopyPos kopiert die Zeichen aus src in die Zeichenreihe 
dest, wobei an der Stelle de st [destPos] begonnen wird. Die 
nachfolgenden Zeichen in src werden überschrieben. Ist die 
resultierende Zeichenkette zu lang, wird der Rest abgeschnitten. 


E>ie Prozedur Copy überschreibt die Zeichenkette dest mit dem Inhalt 
von src. Es entspricht einem Aufruf von CopyPos, wobei destPos 
zu 0 gesetzt wird. 

Concat hängt die Zeichenkette src an dest an. Überzählige Zeichen 
werden abgeschnitten. 

Compare vergleicht die Zeichenkette strl mit der Zeichenkette 
str2. Ist das Resultat negativ, so ist st r2 kleiner, ist es Null, sind 
beide gleich, und ist es positiv, so ist s t r 2 grösser als strl. Der 
Absolutwert des zurückgegebenen Resultats gibt die Zeichenposition, an 
der sich die beiden Zeichenketten unterscheiden, wobei das erste Zeichen 
dem Wert eins entspricht. 
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Die Funktion FirstPos sucht nach dem ersten Vorkommen des 
Zeichens ch innerhalb der Zeichenkette str, dort startend bei der 
Position from. Zurückgegeben wird die Position des ersten 
Vorkommens, oder noOccur falls das Zeichen nicht gefunden wurde. 


Die Funktion LastPos sucht nach dem letzten Vorkommen des 
Zeichens ch innerhalb der Zeichenkette str .Gesucht wird bis zur 
Position to. Zurückgegeben wird die Position des letzten Vorkommens, 
oder noOccur falls das Zeichen nicht gefunden wurde. 


CapString wandelt alle Kleinbuchstaben der Zeichenkette st r in die 
entsprechenden Grossbuchstaben um. Die Umwandlung entspricht 
derjenigen der Funktion CAP (), wird also nur für die Zeichen "a"-"z" 
ausgeführt. 
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Das Modul Strings bietet einige Manipulationsprozeduren für 
Zeichenketten an. 


DEFINITION MODULE Strings; 


CONST 

first=0; 

last=-l; 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


Length(VAR str: ARRAY OF CHAR): INTEGER; 
Occurs(VAR str: ARRAY OF CHAR; from:INTEGER; 
token: ARRAY OF CHAR; 
caseSens: BOOLEAN): INTEGER; 

Insert(VAR str: ARRAY OF CHAR; at: INTEGER; 

token:ARRAY OF CHAR); 

Delete(VAR str: ARRAY OF CHAR; 

Start, length: INTEGER); 

Copy(VAR str: ARRAY OF CHAR; 
source: ARRAY OF CHAR; 

Start, length: INTEGER); 

Compare(VAR str: ARRAY OF CHAR; 

Start, length: INTEGER; 
token: ARRAY OF CHAR; 
caseSens: BOOLEAN):INTEGER; 


END Strings. 


Die Funktion Length gibt die Anzahl Zeichen in str zurück. Ein 
abschliessendes Nullzeichen wird nicht gezählt. 


Die Funktion Occurs sucht nach dem Vorkommen von token in str, 
wobei dort mit dem Zeichen an der Position from begonnen wird. Der 
Resultatwert entspricht der Position des ersten gemeinsamen Zeichens, 
oder last falls token in str nicht vorkommt. Ist der Parameter 
caseSens wahr, werden Gross- und Kleinbuchstaben als unter¬ 
schiedlichbetrachtet, sonst als gleichbedeutend. Davon ausgenommen 
sind alle Zeichen mit einem Ordinalwert grösser 127. 


Die Prozedur Insert fügt die Zeichenkette token links des Zeichens 
an der Position at in str ein. Ist die resultierende Zeichenkette zu lang. 
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um abgelegt zu werden, wird diese entsprechend abgeschnitten. Falls 
notwendig, d.h. falls at > Length (str), werden der Zeichenkette 
str zuerst Leerzeichen angehängt. Ist at = last, wird token an 
str angehängt. 

Delete löscht length Zeichen aus str heraus, beginnend an der 
Stelle f rom. Die dahinterliegenden Zeichen rutschen nach. 

Copy kopiert eine Teilzeichenkette von source nach str. Die 
Teilzeichenkette beginnt an der Stelle Start und ist lentgh Zeichen 
lang. Zeichen, die hinter dem letzten Zeichen von source liegen, 
werden nicht berücksichtigt. Die Zielzeichenkette wird analog zu 
Insert abgeschnitten, falls der Platz nicht ausreichen sollte. 


Compare vergleicht die Teilzeichenkette von str, beginnend an der 
Stelle start und length Zeichen lang, mit der gegebenen 
Zeichenkette token. Ist das Resultat negativ, so ist token kleiner, ist 
es Null, sind beide gleich, und ist es positiv, so ist token grösser als die 
Teilzeichenkette. Der Absolutwert des zurückgegebenen Resultats gibt 
die Zeichenposition, an der sich die beiden Zeichenketten unterscheiden, 
wobei das erste Zeichen dem Wert eins entspricht. 


Anmerkung: Der Parameter s t r in Length, Oc cu r s und 

Compare ist aus Effizienzgründen ein Variabien- 
Parameter. Die Zeichenkette wird nicht verändert. 
Für konstante Zeichenketten sind diese Funktionen 
sinnlos, da die Resultate sowieso bekannt sind. 
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SYSTEM 

( 

Anmerkung: Dies kann nur der Versuch eines Definitionsmoduls 

sein. Für Einzelheiten sei auf den Teil der Compiler- 
Beschreibung verwiesen. 

DEFINITION MODULE SYSTEM; 

TYPE 

BYTE; 

WORD; 

ADDRESS = POINTER TO BYTE; 

BP TR; 

BITSET = SET OF [0..15]; / 

LONGSET = SET OF [0..31]; { 

FFP; 

(* 

* T bezeichnet skalaren Typ, 

* dessen Grösse <= 4 Byte ist 
*) 

PROCEDURE ADR (VAR x: AnyType): ADDRESS; 

PROCEDURE INLINE(x : WORD); 

PROCEDURE REG (reg: [0..15]): LONGINT; 

PROCEDURE SETREG(reg: [0..15]; val: T); 

(* reg const *) 

(* SIZE(T)=4 *) 

PROCEDURE TSIZE (AnyType): LONGINT; 

PROCEDURE SHIFT (x: T; n: LONGINT): T; 

PROCEDURE CAST (AnyTypel; x: AnyType2): AnyType1; 

(* SIZE(AnyTypel) = SIZE(AnyType2) *) ( 


END SYSTEM. 
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Terminal 

Das Standard Modul Terminal bietet einige grundlegende 
Prozeduren um Zeichen von der Tastatur zu lesen und auf den 
Bildschirm zu schreiben. 

DEFINITION MODULE Terminal; 

VAR 

waitCloseGadget: BOOLEAN; 

PROCEDÜRE Read(VAR ch: CHAR); 

PROCEDURE ReadLn(VAR Str: ARRAY OF CHAR; 

VAR len: INTEGER); 

PROCEDURE BusyRead(VAR ch: CHAR); 

PROCEDURE Write(ch: CHAR); 

PROCEDURE WriteLn; 

PROCEDURE WriteString(String: ARRAY OF CHAR); 

END Terminal. 

Das Modul Terminal berücksichtigt die Unterschiede, die sich aus der 
Arbeitsumgebung ergeben. Wird das Programm, welches das Modul 
Terminal importiert, vom CLI aus aufgerufen, läuft die Ein- und 
Ausgabe über das entsprechende CLI-Fenster (Dos.Input und 
Dos.Output). Wird dasselbe Programm von der Workbench aus 
aufgerufen, wird ein Fenster geöffnet, über das die Ein- und Ausgabe 
laufen kann. 

Die Prozedur ReadLn liest eine ganze Zeile vom Eingabestrom, d.h. bis 
das Zeilenende (ASCII. eol) oder das Eingabeende (ASCII. eof) 
erreicht wird. Die eingelesenen Zeichen werden in str abgelegt. Ist in 
der Variablen str nicht genügend Platz vorhanden, wird der 
überschüssige Teil ignoriert und ist für das Programm verloren. Dürfen 
keine Zeichen der Eingabe verloren gehen, muss die Prozedur Read 
verwendet werden. 

Prozedur Read liest ein einzelnes Zeichen ein. Am Ende der 
Eingabedatei wird das Zeichen ASCII. eof zurückgegeben. Dies ist 
nötig, um das Eingabeende bei Eingabeumlenkung zu erkennen. Man 
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beachte, dass von einem Console-Fenster die Eingabe erst empfangen 
werden kann, wenn die Zeile mit <RETURN> abgeschlossen wurde. 

In einem Console-Fenster kann ASCII. eol durch <CTRL-\> an das 
Programm übergeben werden. Dies ist sinnvoll, um das Verhalten bei 
Dateiende zu testen oder zu simulieren. 


Die Prozedur BusyRead ist aus Gründen der Kompatibilität zur 
ursprünglichen Definition von Terminal (-» [PIM3]) übernommen 
worden. Der Grundgedanke von BusyRead ist die Abfrage, ob im 
Eingabestrom Zeichen zur Übernahme bereit stehen. In der üblichen 
Umgebung eines Console-Fensters ist dies aber nicht möglich. Diese 
Implementation von BusyRead liest das nächste Zeichen von der ( 
Eingabe und weist das gelesene Zeichen der Variablen ch zu. Ist kein 
Zeichen im Eingabestrom vorhanden, erhält ch den Wert ASCII. nul. 

So ist es nicht möglich, das Dateiende einer interaktiven Datei (Eingabe 
von <CTRL-\>) zu erkennen. Falls die Eingabe mittels Eingabeum- 
lenkung von einem nicht-interaktiven Eingabestrom kommt, ist 
BusyRead identisch mit Read. 


Mit Write wird ein einzelnes Zeichen zur aktuellen Ausgabe ausge¬ 
geben. Aus Geschwindigkeitsgründen sollte man die Ausgabe einzelner 
Zeichen vermeiden und wenn immer möglich WriteString ver¬ 
wenden. 

WriteLn setzt den Cursor auf die erste Spalte der folgenden Zeile. 

Die Prozedur WriteString gibt die übergebene Zeichenkette aus. 
Die Zeichenkette kann durch das Zeichen ASCII. nul abgeschlossen 
sein. 


Anmerkung: Ein laufendes Programm kann durch Drücken von A C 

im (aktivierten) Terminal-Fenster unterbrochen 
werden. Unter Umständen muss mehrmals A C 
gedrückt werden. 


( 
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Verwendeter Ein- und Ausgabekanal 

Im Normalfall ist das von Terminal verwendete Fenster ein Console- 
Fenster (Aufruf vom CLI oder von der Workbench). Dadurch ergeben 
sich Unterschiede zu manchen Modula-2-Umgebungen. Während es 
dort möglich ist, eine Eingabe von der Tastatur unmittelbar zu lesen, ist 
dies in einem Console-Fenster nicht möglich. Ein Console-Fenster 
erlaubt die Änderung der gesamten Eingabezeile solange, bis die 
Eingabe mit <RETURN> bestätigt wird. Ein einzelnes Zeichen kann also 
nicht eingelesen werden, bevor der Anwender die <RETURN>-Taste 
betätigt hat. 


Beispiel: PROCEDURE Ja(text: ARRAY OF CHAR) : BOOLEAN; 

(* TRUE, falls Benutzer mit "j" bestätigt *) 
VAR 

ch: CHAR; 

BEGIN 

WriteString(text); 

Read(ch); 

RETURN CAP(ch)="J" 

END Ja; 

In diesem Beispiel bleiben einige Zeichen im Eingabestrom zurück, 
mindestens das Zeilenendzeichen (ASCII.eol). Eine bessere (weil 
sicherere) Variante dieser Funktion sähe folgendermassen aus: 

Beispiel: PROCEDURE Ja (text: ARRAY OF CHAR) : BOOLEAN; 

(* TRUE, falls Benutzer mit "j" bestätigt *) 
VAR 

1: INTEGER; 

Str: ARRAY [0..3] OF CHAR; 

BEGIN 

WriteString(text); 

ReadLn(str, 1) ; 

RETURN CAP(str[0])="J" 

END Ja; 


Diese Funktion liest eine ganze Zeile ein. Der Benutzer kann mit einem 
einfachen <RETURN> die Frage verneinen, oder mit "j"<RETURN> 
die Frage bejahen. Jede Zeichenkette, die mit "j" oder "J" beginnt und mit 
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<RETURN> abgeschlossen wird, gilt als Zustimmung. "Jein" würde 
somit als "Ja" interpretiert. 


Ist das Programm von der Workbench aus gestartet, wird ein Console- 
Fenster mit obigen Eigenschaften eröffnet. Die Grösse dieses Fensters 
ist im Modul Terminal vorgegeben, die Vorgabe ist 
CON: 0/50/640/100/. Es besteht jedoch die Möglichkeit, Art und 
Grösse des Fensters selbst zu bestimmen. Vor dem Öffnen des Fensters 
mit den Vorgabewerten wird in der Ikone des Programms nach einem 
Eintrag "WINDOW=" gesucht. Dieser Eintrag muss ein gültiger 
Fenster-Gerätename sein (-» [DOS]). Der Fenstername dieser 
Spezifikation wird ignoriert; Terminal setzt stattdessen den aktuellen 
Programmnamen ein. 


Beispiel: Eintrag in Tooltypes: 

WINDOW=CON:0/0/640/200/ 

Anmerkung: Für besondere Anwendungen ist es auch möglich, 

andere Ein- und Ausgabekanäle zu verwenden. Dabei 
ist zu beachten, dass Ein- und Ausgabe über den 
gleichen Kanal abgewickelt werden. 

WINDOW=AUX: 

WINDOW=SER: USW. 

Wird für den Workbench-Aufruf ein Fenster geöffnet, wird dieses mit 
einem Closing-Gadget ausgestattet. Das Fenster bleibt nach 
Programmende offen, bis der Benutzer das Closing-Gadget anklickt. So 
bleibt die Programmausgabe sichtbar. Soll das Fenster unmittelbar nach 
Programmende geschlossen werden, muss die Variable 
waitCloseGadget auf FALSE gesetzt werden. Der Vorgabewert 
dieser Variablen ist TRUE. 


Falls beim Aufruf von der Workbench beim Eröffnen des Terminal- 
Fensters ein Fehler auftritt, erscheint in einem Requester eine der beiden 
folgenden Meldungen: 
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Terminal: Open()-Fehler 

Beim Erröffnen des Fensters wurde vom Dos ein Fehler 
zurückgemeldet. Möglicherweise konnte das Fenster aus 
Speichermangel nicht geöffnet werden. 

Terminal: WINDOW=??? 

Die Fensterspezifikation ist nicht korrekt oder ungültig. Kontrollieren 
Sie vor allem, ob das Fenster überhaupt im "Screen" Platz hat. 

Anmerkung: Diese Implementation von Terminal ist für den 

allgemeinen Fall, die Verwendung mit Console- 
Fenstem und sequentiellen Dateien bei der Ein- und 
Ausgabeumlenkung konzipiert. Darum ist es möglich, 
dass unter bestimmten Umständen (z.B. RAW: als Ein- 
/Ausgabekanal) nicht alle Funktionen exakt der 
Beschreibung folgen. 
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Windows 

Das Modul Windows bietet eine einfache Schnittstelle, um mit Fenstern ' 
zu arbeiten. Für die einfache Handhabung wird keine detaillierte 
Kenntnis von Intuition gefordert. 

DEFINTION MODULE Windows; 

IMPORT Intuition; 

TYPE 

Window=Intuition.WindowPt r; 

WinGad=(sizing,moving,arranging,closing,scrolling); 
WinGadSet=SET OF WinGad; ( 

Mode=(replMd,xorMd,invMd); 

ModeSet=SET OF Mode; 

(* ModeSet{}=orMd *) 

PROCEDURE OpenWindow(VAR u: Window; x,y,w,h: INTEGER; 

title: ARRAY OF CHAR; 
gad:WinGadSet); 

PROCEDURE CloseWindow(VAR u:Window); 

PROCEDURE GetSize(VAR u: Window; 

VAR line,column: INTEGER); 

PROCEDURE XYtoPos(VAR u:Window; x,y: INTEGER; 

VAR line,column: INTEGER); 

PROCEDURE SetPos(VAR u: Window; line,column: INTEGER); 
PROCEDURE GetPos(VAR u: Window; 

VAR line,column: INTEGER); 

PROCEDURE SetColor(VAR u: Window; fg,bg: INTEGER); 

PROCEDURE SetMode(VAR u: Window; mode: ModeSet); / 

PROCEDURE Scroll(VAR u: Window; nr: INTEGER); 1 

PROCEDURE Clear(VAR u: Window); 

PROCEDURE WriteC(VAR u: Window; ch: CHAR); 

PROCEDURE WriteS(VAR u: Window; str: ARRAY OF CHAR); 
PROCEDURE WriteL(VAR u: Window); 

(* fortgeschrittene Anwendung *) 

PROCEDURE SetScreen(scr: Intuition.ScreenPtr); 

PROCEDURE SetClip(VAR u: Window; on: BOOLEAN); 

END Windows. 

J r " - 

OpenWindow öffnet ein Fenster mit den angegebenen Koordinaten x, i 
y, w, h (in Bildpunkten, Nullpunkt links oben) und der Kopfzeile title. 


12-64 




Windows 


Alle in Intuition verfügbaren Standard-Gadgets sowie ein Rollbalken 
auf der rechten Seite können dem Fenster zugeordnet werden. So 
zugewiesene Gadgets müssen vom Benutzer behandelt werden. Ohne 
spezielle Behandlung sollten nur das arranging- und das moving- 
Gadget zugewiesen werden. 


Als Schreibmodus wird replMd gesetzt und die Cursorposition ist 0,0 
(links oben). Konnte das Fenster nicht geöffnet werden, erhält u den 
Wert NIL. 


CloseWindow schliesst das durch u identifizerte Fenster wieder. 


Die Prozedur GetSize liefert die Zeilen- und Spaltenzahl des Fensters 
u. 


XYtoPos setzt die x- und y-Koordinate relativ zum Fenstemullpunkt 
in die Fensterzeüe 1 und -spalte c um. 


Der unsichtbare Cursor kann mit SetPos gesetzt werden, während 
GetPos die aktuelle Cursorposition liefert (immer in Zeile und Spalte 
gerechnet). 


Beim Eröffnen wird die Hinter- und Vordergrundfarbe auf 0 und 1 
gesetzt. SetColor lässt diese Farbwerte ändern. Soll nur ein Wert 
verändert werden, kann dem anderen -1 übergeben werden. 

SetMode setzt den Schreibmodus für ein bestimmtes Fenster. Mit 
replMd wird das Buchstabenmuster über den momentanen Inhalt 
gelegt, xorMd ändert die Farbe an den im Muster gesetzten Stellen und 
orMd setzt die Farbe an den im Muster gesetzten Stellen. Ist invMd 
gesetzt, wird das Buchstabenmuster zuerst invertiert, bevor einer der 
drei beschriebenen Modi zur Anwendung kommt. 


Scroll bewegt den Fensterinhalt um soviele Zeilen wie angegeben, 
aufwärts bei positiven Grössen und abwärts bei negativem nr. 
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Ein Fenster kann durch die Prozedur Clear gelöscht werden. Das 
Fenster wird mit der Hintergrundfarbe ausgefüllt. 


WriteC schreibt an der aktuellen Cursorposition ein Zeichen, und 
bewegt den Cursor entsprechend. 


WriteS schreibt die übergebene Zeichenkette an der aktuellen 
Cursorposition. Geht die Zeichenkette über den rechten Rand hinaus, 
wird auf der nächsten Zeile weitergefahren (Ausnahme siehe unter 
SetClip). 


WriteL setzt den Cursor an der Anfang der nächsten Zeile. 


Die Fenster werden normalerweise auf dem Workbench-Bildschirm 
eröffnet. Mit SetScreen kann jedoch für alle nachfolgenden Aufrufe 
von Openwindow ein anderer Bildschirm gesetzt werden. Um wieder 
zum Workbench-Bildschirm zurückkehren zu können, muss NIL 
übergeben werden. 


Mit der Prozedur SetClip kann angegeben werden, ob ein zu 
schreibender Text, der nicht vollständig auf der Fensterzeüe Platz hat, 
abgeschnitten oder auf der nächsten Zeüe weitergeschrieben werden 
soll. Wird der Clip-Modus gesetzt (on=TRUE), bewirkt ausserdem ein 
Zeilenvorschub am Ende des Fensters bloss das Setzen des Cursors auf 
das erste Zeichen der letzten Zeile. 


Anmerkung: Das Window hat noch keine IDCMPFlags und somit 

auch keinen Replyport. Mit der Intuition Prozedur 
ModifylDCMP kann dem Window ein Port zuge¬ 
wiesen werden. 
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Audio 


5 (*$M—*) 

6 DEFINITION MODULE Audio; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS; 

10 FROM Exec IMPORT 

11 nonstd,IOFlagSet,IORequest,Message; 

12 

13 CONST 

14 audioName="audio.device"; 

15 hardChannels=4; 

16 allocMinprec=-128; 

17 allocMaxprec=127; 

18 free=nonstd+0; 

19 setPrec=nonstd+l; 

20 finish=nonstd+2; 

21 perVol=nonstd+3; 

22 lock=nonstd+4; 

23 waitCycle=nonstd+5; 

24 noünit=32; 

25 allocate=noUnit+0; 

26 pervol=IOFlagSet{4}; 

27 syncCycle=IOFlagSet{5}; 

28 noWait=IOFlagSet{6}; 

29 writeMessage=IOFlagSet{7}; 

30 noAllocation=-10; 

31 allocFailed=-ll; 

32 channelStolen=-l2; 

33 

34 TYPE 

35 IOAudio=RECORD 

36 request:IORequest; 

37 allocKey:INTEGER; 

38 data : ADDRESS; 

39 length:LONGCARD; 

40 p e r i o d: CARD IN AL ; 

41 vo 1 ume: CARD INAL ; 

42 cycles:CARDINAL; 

43 writeMsg:Message; 

44 END; 

45 IOAudioPtr=POINTER TO IOAudio; 

46 

47 END Audio. 

48 
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5 (* $M- *) 

6 DEFINITION MODULE BootBlock; 

7 

8 FROM SYSTEM IMPORT CAST; 

9 

10 TYPE 

11 BootBlock=RECORD 

12 id:ARRAY [0..3] OF CHAR; 

13 chkSum:LONGINT; 

14 dosBlock:LONGINT; 

15 END; 

16 

17 CONST 

18 bootSects=2; 

19 idDos=CAST(LONGINT,'DOS ')-ORD(' ' ) ; 

20 idKick=CAST(LONGINT,'KICK'); 

21 nameDos='DOS'; 

22 nameKick='KICK'; 

23 

24 END BootBlock. 

25 
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5 (* $M- *) 

6 DEFINITION MODULE Clipboard; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS; 

io FROM Exec IMPORT 

n nonstd,Node,Message,DevicePtr,IOFlagSet,UnitPtr; 
12 

13 CONST 

14 clipboardName="clipboard.device"; 

15 post=nonstd+ 0 ; 

16 currentReadId=nonstd+l; 

17 currentWriteId=nonstd+2; 

18 obsoleteId=l; 

19 

20 TYPE 

21 ClipboardUnitPartial=RECORD 

22 node:Node; 

23 unitNum:LONGCARD; 

24 END; 

25 ClipboardUnitPartialPtr=POINTER TO ClipboardUnit; 

26 IOClipboard=RECORD 

27 message:Message; 

28 device:DevicePtr; 

29 unit:UnitPtr; 

30 command: CARDINAL; 

31 flags:IOFlagSet; 

32 error: [-128 . . 127] ; 

33 actual:LONGCARD; 

34 length:LONGCARD; 

35 data: ADDRESS; 

36 Offset:LONGCARD ; 

37 clipID:LONGINT; 

38 END; 

39 IOClipboardPtr=POINTER TO IOClipReqPtr; 

40 

41 CONST 

42 primaryClip=0; 

43 

44 TYPE 

45 SatisfyMsg=RECORD 

46 msg:Message; 

47 unit: CARDINAL; 

48 ClipID:LONGINT; 

49 END; 

so SatisfyMsgPtr=POINTER TO SatisfyMsg; 

51 

52 END Clipboard. 

53 
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( 

5 (*$M-*) 

6 DEFINITION MODULE Console; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS; 

10 FROM Exec IMPORT 

11 nonstd; 

12 FROM InputEvent IMPORT 

13 InputEventPtr; 

14 

15 CONST 

16 consoleName="console.device"; 

17 askKeyMap=nonstd+0; 

18 setKeyMap=nonstd+l; , 

19 askDefaultKeyMap=nonstd+2; v 

20 setDefaultKeyMap=nonstd+3; 

21 primary=0; 

22 bold=l; 

23 italic=3; 

24 underscore=4; 

25 negative=7; 

26 black=30; 

27 red=31; 

28 green=32; 

29 yellow=33; 

30 blue=34; 

31 magenta=35; 

32 cyan=36; 

33 white=37; 

34 default=39; 

35 blackBg=40; 

36 redBg=41; 

37 greenBg=42; 

38 yellowBg=43; 

39 blueBg=44; / 

40 magentaBg=45; 

41 cyanBg=4 6; 

42 whiteBg=47; 

43 defaultBg=4 9; 

44 clr0=30; 

45 clrl=31; 

46 clr2=32; 

47 clr3=33; 

48 clr4=34; 

49 clr5=35; 
so clr6=36; 

51 clr7=37; 

52 clr0Bg=40; 

53 clrlBg=41; 

54 clr2Bg=42; ( 

55 clr3Bg=43; 

56 clr4Bg=44; 

57 clr5Bg=45; 
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1 clr6Bg=46; 

2 clr7Bg=47; 

3 dsrCpr=6; 

4 ctcHSetTab=0; 

5 ctcHClrTab=2; 

6 ctcHClrTabsAll=5; 

7 tbcHClrTab=0; 

s tbcHClrTabsAll=3; 

9 mLnm=20; 
io mAsm=”>l"; 
n mAwm="? 7 M ; 

12 

13 PROCEDURE CDInputHändler(deviceO{14}: ADDRESS; 

14 events{8}:InputEventPtr; 

15 devicel{9}:ADDRESS); CODE -42; 

16 PROCEDURE RawKeyConvert( 

17 deviceO{14}:ADDRESS; 

18 events{8}:InputEventPtr; 

19 buffer{9}:ADDRESS; 

20 length{1}:LONGINT; 

21 keyMap{10}:ADDRESS):LONGINT; CODE -48; 

22 

23 END Console. 

24 
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ConUnit 


5 (* $M- *) 

6 DEFINITION MODULE ConUnit; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS; 

10 FROM Console IMPORT 
n mLnm; 

12 FROM Exec IMPORT 

13 MsgPort/UByte; 

14 FROM Graphics IMPORT 

15 DrawModes,TextFontPtr; 

16 FROM InputEvent IMPORT 

17 classMax; 

18 FROM Intuition IMPORT 

19 WindowPtr; 

20 FROM KeyMap IMPORT 

21 KeyMap; 

22 

23 CONST 

2 4 pmbAsm=mLnm+1; 

25 pmbAwm=pmbAsm+l; 

26 maxTabs=80; 

27 

28 TYPE 

29 ConUnit=RECORD 

30 mp:MsgPort; 

31 window:WindowPtr; 

32 xCP: INTEGER; 

33 yCP: INTEGER; 

34 xMax: INTEGER; 

35 yMax: INTEGER; 

36 xRSize:INTEGER; 

37 yRSize:INTEGER; 

38 xROrigin:INTEGER; 

39 yROrigin:INTEGER; 

40 xRExtant:INTEGER; 

41 yRExtant: INTEGER; 

42 xMinShrink:INTEGER; 

43 yMinShrink:INTEGER; 

44 xcCP:INTEGER; 

45 ycCP: INTEGER; 

46 keyMapStruct:KeyMap; 

47 tabStops:ARRAY [0..maxTabs-1] OF CARDINAL; 

48 mask: UByte; 

49 fgPen:UByte; 
so bgPen;UByte; 

51 aolPen:UByte; 

52 drawMode:DrawModes; 

53 areaPtSz:UByte; 

54 areaPtrn:ADDRESS; 

55 minTerms:ARRAY [0..7] OF UByte; 

56 font:TextFontPtr; 

57 algoStyle:UByte; 
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1 txFlags:UByte; 

2 t xHeight:CARDINAL; 

3 t xWidth:CARDINAL ; 

4 txBaseLine:CARDINAL; 

5 txSpacing:CARDINAL; 

6 modes:ARRAY [0..(pmbAwm+7) DIV 8-1] OF UByte; 

7 rawEvents:ARRAY [0..(classMax+7) DIV 8-1] OF UByte; 

8 END; 

9 ConUnitPtr=POINTER TO ConUnit; 

10 

11 END ConUnit. 

12 
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DiskFont 


5 DEFINITION MODULE DiskFont{"diskfont.library”,33} ; 

6 

7 FROM SYSTEM IMPORT 

8 ADDRESS/BPTR; 

9 FROM Exec IMPORT 
io Node; 

n FROM Graphics IMPORT 

12 FontFlagSet,FontStyleSet,TextAttr,TextAttrPtr,TextFont 

13 /TextFontPtr; 

14 

15 CONST 

16 maxFontPath=256; 

17 maxFontName=32; 

18 fchId=0F00H; 

19 dfhId=0F80H; 

20 

21 TYPE 

22 AvailFontTypes=( 

23 memory,disk,af2,af3,af4,af5,af6,af7, 

24 af8/af9/af10,af11,af12,af13,af14, al5 

25 ) ; 

26 AvailFontTypeSet=SET OF AvailFontTypes; 

27 FontContents=RECORD 

28 fileName: ARRAY [0..maxFontPath-1] OF CHAR; 

29 ySize: CARDINAL; 

30 style: FontStyleSet; 

31 flags: FontFlagSet; 

32 END; 

33 FontContentsHeader=RECORD 

34 fileld: CARDINAL; 

35 numEntries: CARDINAL; 

36 (*fc: ARRAY [0..numEntries-1] OF FontContents *) 

37 END; 

38 FontContentsHeaderPtr=POINTER TO FontContentsHeader; 

39 DiskFontHeader=RECORD 

40 df: Node; 

41 fileld: CARDINAL; 

42 revision: CARDINAL; 

43 segment: BPTR; 

44 name: ARRAY [0..maxFontName-1] OF CHAR; 

45 tf: TextFont 

46 END; 

47 AvailFont=RECORD 

48 type: AvailFontTypeSet; 

49 attr: TextAttr; 
so END; 

51 AvailFontHeader=RECORD 

52 numEntries: CARDINAL; 

53 (*af: ARRAY [0..numEntries-1] OF AvailFont;*) 

54 END; 

55 AvailFontHeaderPtr=POINTER TO AvailFontHeader; 

56 

57 PROCEDURE AvailFonts ( 


i 


( 


( 
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1 buffer{8}: ADDRESS; 

2 bufBytes{0}: LONGINT; 

3 types{1}: AvailFontSetType):LONGINT; CODE -36; 

4 PROCEDURE OpenDiskFont( 

5 textAttr{8}: TextAttrPtr): TextFontPtr; CODE -30; 
e 

7 END DiskFont. 

8 


Schnittstellen-Moduln 


13-11 



Dos 


Dos 


5 DEFINITION MODULE Dos {"dos.library",33}; 

6 

7 FROM SYSTEM IMPORT 

8 ADDRESS,BPTR,BYTE,CAST,LONGSET,WORD; 

9 FROM Exec IMPORT 

io Library,Message,MessagePtr,MsgPort,MsgPortPtr, Task; 
n 

12 CONST 

13 dosName="dos.library"; 

14 (* 

15 * Mögliche Werte des Parameters accessMode 

16 * der Prozedur Open 

17 *) 

18 readWrite=1004; 

19 readOnly=1005; ( 

20 oldFile=readOnly; 

21 newFile=1006; 

22 (* Mögliche Werte des Parameters mode der Prozedur Seek *) 

23 beginning=-l; 

24 current=0; 

25 end=l; 

26 (* 

27 * Mögliche Werte des Parameters accessMode 

28 * der Prozedur Lock 

29 *) 

30 sharedLock=-2; 

31 exclusiveLock=-l; 

32 accessRead=sharedLock; (* synonym *) 

33 accessWrite=exclusiveLock; (* synonym *) 

34 

35 ticksPerSecond=50; 

36 

37 TYPE 

38 BSTR=BPOINTER TO ARRAY [0..255] OF CHAR; 

39 FileHandlePtr=BPOINTER TO FileHandle; ( 

40 FileLockPtr=BPOINTER TO FileLock; 

41 Date=RECORD 

42 days:LONGINT; 

43 minute:LONGINT; 

44 tick:LONGINT; 

45 END; 

46 DatePtr=POINTER TO Date; 

47 ProtectionFlags=( 

48 delete,execute,writeProt,readProt,archive,script,pure,hidden, 

49 pf8,pf9,pfl0,pfll,pf12,pf13,pf14,pf15,pfl6,pfl7,pf18,pf19,pf20, 
so pf21,pf22,pf23,pf24,pf25,pf26,pf27,pf28,pf29,pf30,pf31 

51 ) ; 

52 ProtectionFlagSet=SET OF ProtectionFlags; 

53 FilelnfoBlockPtr=POINTER TO FilelnfoBlock; 

54 FilelnfoBlock=RECORD 

55 diskKey:LONGINT; 

56 dirEntryType:LONGINT; 

57 fileName:ARRAY [0..107] OF CHAR; 
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1 protectiomProtectionFlagSet; 

2 entryType:LONGINT; 

3 size:LONGINT; 

4 numBlocks:LONGINT; 

5 date:Date; 

6 comment:ARRAY [0..79] OF CHAR; 

7 padding:ARRAY [0..35] OF CHAR; 

8 END; 

9 InfoDataPtr=POINTER TO InfoData; 
io InfoData=RECORD 

u numSoftErrors:LONGINT; 

12 unitNumber:LONGINT; 

13 diskState:LONGINT; 

14 numBlocks:LONGINT; 

15 numBlocksUsed:LONGINT; 

16 bytesPerBlock:LONGINT; 

17 diskType:LONGINT; 

18 volumeNode:BPTR; 

19 inüse:LONGINT; 

20 END; 

21 

22 CONST 

23 (* Mögliche Werte von InfoData.diskState *) 

24 writeProtect=80; 

25 validating=81; 

26 validated=82; 

27 (* Mögliche Werte von InfoData.diskType *) 

28 noDiskPresent=-l; 

29 unreadableDisk=CAST(LONGINT,"BAD ") -ORD (" ") 

30 dosDisk=CAST(LONGINT,"DOS ")-ORD(" "); 

31 notReallyDos=CAST(LONGINT,"NDOS"); 

32 kickstartDisk=CAST(LONGINT,"KICK"); 

33 (* Mögliche Rückgabewerte von IoErr () *) 

34 noFreeStore=103; 

35 taskTableFull=105; 

36 ÜneTooLong=120; 

37 fileNotObject=121; 

38 invalidResidentLibrary=122; 

39 noDefaultDir=201; 

40 objectlnüse=202; 

41 objectExists=203; 

42 dirNotFound=204; 

43 objectNotFound=205; 

44 badStreamName=206; 

45 objectTooLarge=207; 

46 actionNotKnown=209; 

47 invalidComponentName=210; 

48 invalidLock=211; 

49 objectWrongType=212; 
so diskNotValidated=213; 

51 diskWriteProtected=214; 

52 renameAcrossDevices=215; 

53 directoryNotEmpty=216; 

54 tooManyLevels=217; 

55 deviceNotMounted=218; 

56 seekError=219; 

57 commentTooBig=220; 
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1 diskFull=221; 

2 deleteProtected=222; 

3 writeProtected=223; 

4 readProtected=224; 

5 notADosDisk=225; 

6 noDisk=226; 

7 noMoreEntries=232; 

8 (* 

9 * Vordefinierte Werte für den Parameter returnCode 

io * der Prozedur Exit 

n *) 

12 ok=0; 

13 warn=5; 

14 error=10; 

15 fail=20; 

16 (* break flags Exec.SetSignal, etc *) 

17 ctrlC=12; 

18 ctrlD=13; 

19 ctrlE=14; 

20 ctrlF=15; 

21 

22 TYPE 

23 CommandLinelnterfacePtr=BPOINTER TO CommandLinelnterface; 

24 ProcessId=MsgPortPtr; 

25 ProcessPtr=POINTER TO Process; 

26 Process=RECORD 

27 task:Task; 

28 msgPort:MsgPort; 

29 pad:WORD; 

30 segList:BPTR; 

3 1 stackSize:LONGINT; 

32 globVec:ADDRESS; 

33 taskNum:LONGINT; 

34 stackBase:BPTR; 

35 result2:LONGINT; 

36 currentDir:FileLockPtr; 

37 cis:FileHandlePtr; 

38 cos:FileHandlePtr; 

39 consoleTask:ProcessId; 

40 fileSystemTask:ProcessId; 

41 cli:CommandLinelnterfacePtr; 

42 returnAddr:ADDRESS; 

43 pktWait:ADDRESS; 

44 windowPtr:ADDRESS; 

45 END; 

46 FileHandle=RECORD 

47 link:MessagePtr; 

48 port:MsgPortPtr; 

49 type:MsgPortPtr; 
so buf:LONGINT; 

5 1 pos:LONGINT; 

52 end:LONGINT; 

53 funcl:LONGINT; 

54 func2:LONGINT; 

55 func3:LONGINT; 

56 argl:LONGINT; 

57 arg2:LONGINT; 
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1 END; 

2 DosPacket=RECORD 

3 link:MessagePtr; 

4 port:MsgPortPtr; 

5 type:LONGINT; (* Action *) 
e resl:LONGINT; (* Status *) 

7 res2:LONGINT; (* Status2 *) 

8 argl:LONGINT; (* BufAddr *) 

9 arg2:LONGINT; 

10 arg3:LONGINT; 

11 arg4:LONGINT; 

12 arg5:LONGINT; 

13 arg6:LONGINT; 

14 arg7:LONGINT; 

15 END; 

16 DosPacketPtr=POINTER TO DosPacket; 

17 StandardPacket=RECORD 

18 msg:Message; 

19 pkt:DosPacket; 

20 END; 

21 

22 CONST 

23 (* Mögliche Werte für DosPacket.type *) 

24 nil=0; 

25 getBlock=2; 

26 setMap=4; 

27 die=5; 

28 event=6; 

29 currentVolume=7; 

30 locateObject=8; 

31 renameDisk=9; 

32 write=ORD (' W' ) ; 

33 read=ORD ('R') ; 

34 freeLock=15; 

35 deleteObject=l6; 

36 renameObject=17; 

37 moreCache=18; 

38 copyDir=19; 

39 waitChar=20; 

40 setProtect=21; 

41 createDir=22; 

42 examineObject=23; 

43 examineNext=24; 

44 diskInfo=25; 

45 info=2 6; 

46 flush=27; 

47 setComment=28; 

48 parent=29; 

49 timer=30; 

so inhibit=31; 

51 diskType=32; 

52 diskChange=33; 

53 setDate=34; 

54 screenMode=994; 

55 

56 TYPE 

57 RootNodePtr=POINTER TO RootNode; 
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1 DosLibrary=RECORD 

2 Üb: Library; 

3 root:RootNodePtr; 

4 gv:ADDRESS; ( 

s a 2 :LONGINT; 

6 a 5 :LONGINT; 

7 a6:LONGINT; 

8 END; 

9 DosLibraryPtr=POINTER TO DosLibrary; 
io (* dosLib:=ADR(Dos) *) 

n TaskArray=RECORD 

12 maxCli:LONGINT; 

13 c 1 i:ARRAY [ 1 .. 99 ] OFProcessId; 

14 END; 

15 DeviceListPtr=BPOINTER TO DeviceList; 

16 DoslnfoPtr=BPOINTER TO Dosinfo; 

17 TaskArrayPtr=BPOINTER TO TaskArray; 

18 RootNode=RECORD / 

19 taskArray:TaskArrayPtr; ■ 

20 consoleSegment:BPTR; 

21 time: Date; 

22 restartSeg:BPTR; 

23 inf o : Doslnf oPtr; 

24 fileHandlerSegment:BPTR; 

25 END; 

26 Doslnfo=RECORD 

27 mcName: BSTR; 

28 devlnfo:DeviceListPtr; 

29 devices:BPTR; 

30 handlers: BPTR; 

3 1 netHand:ADDRESS; 

32 END; 

33 CommandLinelnterface=RECORD 

34 result 2 :LONGINT; 

35 setName :BSTR; 

36 commandDir:BPTR; (* neuerdings command path ! *) 

37 returnCode:LONGINT; 

38 commandName:BSTR; 

39 failLevel:LONGINT; ( 

40 prompt: BSTR; 

41 standardlnput:FileHandlePtr; 

42 currentInput:FileHandlePtr; 

43 commandFile:BSTR; 

44 interactive:LONGINT; (* LONGBOOLEAN *) 

45 background:LONGINT; (* LONGBOOLEAN *) 

46 currentOutput:FileHandlePtr; 

47 defaultstack:LONGINT; 

48 Standardoutput:FileHandlePtr; 

49 module:BPTR; 
so END; 

51 DeviceListType=(device,directory,volume) ; 

52 DeviceList=RECORD 

53 next:DeviceListPtr; 

54 padl/pad2 , pad3:BYTE; ( 

55 type:DeviceListType; 

56 task:ProcessId; 

57 lock:FileLockPtr; 
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1 CASE :DeviceListType OF 

2 | device,directory: 

3 handler:BSTR; 

) 4 stackSize:LONGINT; 

5 priority:LONGINT; 

6 Startup:LONGINT; 

7 segList:BPTR; 

8 globVec:BPTR; 

9 | volume: 

io volumeDate:Date; 

n lockList:FileLockPtr; 

12 diskType:LONGINT; 

13 unused:LONGINT 

14 END; 

15 name:BSTR; 

16 END; 

17 FileLock=RECORD 

. 18 link:FileLockPtr ; 

) 19 key:LONGINT; 

20 access:LONGINT; 

21 task:ProcessId; 

22 volume:DeviceListPtr; 

23 END; 

24 

25 PROCEDURE Close (f ile {1} :FileHandlePtr) ; CODE -36; 

26 PROCEDURE CreateDir(name{1}:ADDRESS):FileLockPtr; CODE -120; 

27 PROCEDURE CreateProc( 

28 name {1} : ADDRE SS; 

29 pri{2}:LONGINT; 

30 segment{3}:BPTR; 

31 stackSize{4}:LONGINT):ProcessId; CODE -138; 

32 PROCEDURE CurrentDir( 

33 lock{1}:FileLockPtr):FileLockPtr; CODE -126; 

34 PROCEDURE DateStamp(v{1}:DatePtr); CODE -192; 

35 PROCEDURE Delay(ticks{1}:LONGINT); CODE -198; 

36 PROCEDURE DeleteFile(name{1}:ADDRESS):BOOLEAN; CODE -72; 

37 PROCEDÜRE DeviceProc(name{1}:ADDRESS):ProcessId; CODE -174; 

38 PROCEDURE DupLock(lock{1}:FileLockPtr):FileLockPtr; CODE -96; 

\ 39 PROCEDURE Examine( 

■ 40 lock{1}:FileLockPtr; 

41 infoBlock{2}:FilelnfoBlockPtr):BOOLEAN; CODE -102; 

42 PROCEDURE Execute( 

43 commandString{1}:ADDRESS; 

44 input{2}:FileHandlePtr; 

45 output{3}:FileHandlePtr):LONGINT; CODE -222; 

46 PROCEDURE Exit(returnCode{1}:LONGINT); CODE -144; 

47 PROCEDURE ExNext( 

48 lock{1}:FileLockPtr; 

49 infoBlock{2}:FilelnfoBlockPtr):BOOLEAN; CODE -108; 

50 PROCEDURE IoErr():LONGINT; CODE -132; 

51 (* PRIVATE *) 

52 PROCEDURE GetPacket(wait{1}:LONGINT):DosPacketPtr; CODE -162; 

53 PROCEDURE Info( 

54 lock{1}:FileLockPtr; 

55 parameterBlock{2}:InfoDataPtr) rBOOLEAN; CODE -114; 

56 PROCEDURE Input():FileHandlePtr; CODE -54; 

57 PROCEDURE Islnteractive( 
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1 

2 PROCEDURE 

3 PROCEDURE 

4 

5 PROCEDURE 

6 

7 

8 PROCEDURE 

9 

io PROCEDURE 
n 

12 PROCEDURE 

13 

14 

15 PROCEDURE 

16 PROCEDURE 


17 


file{1}:FileHandlePtr):BOOLEAN; CODE -216; 

LoadSeg(name{1}:ADDRESS):BPTR; CODE -150; 

Lock (name{1}:ADDRESS; 

accessMode{2}:LONGINT):FileLockPtr; CODE -84; 
Seek(file{1}rFileHandlePtr; 
position{2}:LONGINT; 
mode{3}rLONGINT):LONGINT; CODE -66; 

SetComment( 

name{1}/comment{2}:ADDRESS):BOOLEAN; CODE -180; 
SetProtection(name{1}:ADDRESS; 

mask{2}:ProtectionFlagSet):BOOLEAN; 

Open ( 

name{l}:ADDRESS; 

accessMode{2}:LONGINT)rFileHandlePtr; CODE -30; 
Output()rFileHandlePtr; CODE -60; 

ParentDir( 

lock{1}rFileLockPtr) rFileLockPtr; CODE -210; 


18 (*PRIVATE*) 

19 PROCEDURE QueuePacket( 

20 packet{1}:DosPacketPtr):LONGINT; CODE -168; 

21 PROCEDURE Read(file{l}rFileHandlePtr; 

22 buffer{2}:ADDRESS; 

23 length{ 3}-.LONGINT) rLONGINT; CODE -42; 

24 PROCEDURE Rename( 

25 oldName{1}/newName{2}:ADDRESS):BOOLEAN; CODE -78; 

26 PROCEDURE UnLoadSeg(segment{1}rBPTR); CODE -156; 

27 PROCEDURE UnLock(lock{1}:FileLockPtr); CODE -90; 

28 PROCEDURE WaitForChar(file{1}rFileHandlePtr; 

29 timeout{2}rLONGINT):BOOLEAN; CODE -204; 

30 PROCEDURE Write(file{1}rFileHandlePtr; 

31 buffer{2} rADDRESS; 

32 length{3}rLONGINT)rLONGINT; CODE -48; 

33 END Dos . 

34 


( 
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5 DEFINITION MODULE Exec {"exec.library", 33}; 

6 

7 FROM SYSTEM IMPORT 

8 ADDRESS,BITSET,BYTE,LONGSET,WORD; 

9 

io IMPORT Hardware; 

n 

12 TYPE 

13 Byte= [-128 . .127] ; 

14 UByte= [ 0 . .255] ; 

15 NodeType= ( 

16 unknown,task,interrupt, device,msgPort,message,freeMsg, 

17 replyMsg,resource,library,memory,softint,font,process, 

18 Semaphore,signalSem 

19 ) ; 

20 NodePtr=POINTER TO Node; 

21 Node=RECORD 

22 succ :NodePtr; 

23 pred:NodePtr; 

24 type:NodeType; 

25 pri: Byte; 

26 name: ADDRESS; 

27 END; 

28 MinNodePtr=POINTER TO MinNode; 

29 MinNode=RECORD 

30 succ:MinNodePtr; 

31 pred:MinNodePtr; 

32 END; 

33 List=RECORD 

34 head:NodePtr; 

35 tail:NodePtr; 

36 tailPred:NodePtr; 

37 type:NodeType; 

38 pad: BYTE; 

39 END; 

40 ListPtr=POINTER TO List; 

41 MinList=RECORD 

42 head:MinNodePtr; 

43 tail:MinNodePtr; 

44 tailPred:MinNodePtr; 

45 END; 

46 MinListPtr=POINTER TO MinList; 

47 Interrupt=RECORD 

48 node: Node; 

49 data:ADDRESS; 
so code:PROC; 

51 END; 

52 InterruptPtr=POINTER TO Interrupt; 

53 IntVector=RECORD 

54 data: ADDRESS; 

55 code:PROC; 

56 node:NodePtr; 

57 END; 
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1 SoftIntList=RECORD 

2 list:List; 

3 pad:WORD; 

4 END; ( 

5 MemReqs=( 

6 public,Chip,fast,mr3,mr4,mr5,mr6,mr7, 

7 mr8,mr9,mrl0,mrll,mrl2,mrl3,mrl4,mrl5,memClear,largest 

e ) ; 

9 MemReqSet=SET OF MemReqs; 
io MemTypeSet=SET OF [public..mrl5]; 
n MemChunkPtr=POINTER TO MemChunk; 

12 MemChunk=RECORD 

13 next:MemChunkPtr; 

14 bytes:LONGCARD; 

15 END; 

16 MemHeader=RECORD 

17 node:Node; 

18 attributes:MemTypeSet; / 

19 first:MemChunkPtr; \ 

20 lower:ADDRESS; 

21 upper:ADDRESS; 

22 f ree: LONGCARD ; 

23 END; 

24 MemHeaderPtr=POINTER TO MemHeader; 

25 MemEntry=RECORD 

26 CASE :INTEGER OF 

27 | 1:reqs:MemReqSet 

28 | 2 :addr: ADDRESS 

29 END; 

30 length:LONGCARD; 

31 END; 

32 MemList=RECORD 

33 node:Node; 

34 numEntries:CARDINAL; 

35 (*me:ARRAY [0..munEntries-1] OF MemEntry;*) 

36 END; 

37 MemListPtr=POINTER TO MemList; 

38 MsgPortAction=(signal, softint, ignore); 

39 TaskPtr=POINTER TO Task; ( 

40 MsgPort=RECORD 

41 node:Node; 

42 CASE flags:MsgPortAction OF 

43 | signal: 

44 sigBit:UByte; 

45 sigTaskiTaskPtr; 

46 | softint: 

47 padO :BYTE; 

48 softint:InterruptPtr; 

49 | ignore: 

so padl:BYTE; 

51 pad2: ADDRESS 

52 END; 

53 msgList:List; 

54 END; 1 

55 MsgPortPtr=POINTER TO MsgPort; 

56 Message=RECORD 

57 node:Node; 


13-20 



Exec 


1 replyPort:MsgPortPtr; 

2 length:CARDINAL; 

3 END; 

f 4 MessagePtr=POINTER TO Message; 

5 TaskFlags=( 

6 procTime,tf1,tf2,tf3,stackChk,exception,switch,launch 

7 ) ; 

8 TaskFlagSet=SET OF TaskFlags; 

9 TaskState=(inval, added,run, ready,wait,except,removed); 
io Task=RECORD 

n node:Node; 

12 flags:TaskFlagSet; 

13 state:TaskState; 

14 idNestCnt:BYTE; 

15 tdNestCnt:BYTE; 

16 sigAlloc:LONGSET; 

17 sigWait:LONGSET; 

\ 18 sigRecvd:LONGSET; 

' 19 sigExcept:LONGSET; 

20 trapAlloc:BITSET; 

21 trapAble:BITSET; 

22 exceptData:ADDRESS; 

23 exceptCode:PROC; 

24 trapData:ADDRESS; 

25 trapCode:PROC; 

26 spReg:ADDRESS; 

27 spLower:ADDRESS; 

28 spUpper:ADDRESS; 

29 switch:PR0C; 

30 launch :PROC; 

31 memEntry:List; 

32 userData:ADDRESS; 

33 END; 

34 

35 CONST 

36 (* Vordefinierte Signalnummern *) 

37 sigAbort=0; 

38 sigChild=l; 

) 39 sigBlit=4; 

40 sigDos=8; 

41 

42 vectSize=6; 

43 reserved=4; 

44 base=-vectSize; 

45 userDef=base-reserved*vectSize-30; 

46 nonStd=userDef; 

47 extFunc=-24; 

48 expunge=-18; 

49 close=~12; 
so open=-6; 

51 

52 TYPE 

53 LibFlags=(summing,changed,sumüsed,delExp); 

J 54 LibFlagSet=SET OF LibFlags; 

55 Library=RECORD 

56 node:Node; 

57 flags:LibFlagSet; 
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1 pad:BYTE; 

2 negSize:CARDINAL; 

3 posSize:CARDINAL; 

4 version:CARDINAL; ( 

5 revision:CARDINAL; 

6 idString:ADDRESS; 

7 sum:LONGCARD; 

8 openCnt:CARDINAL; 

9 END; 

io LibraryPtr=POINTER TO Library; 
n Device=RECORD 

12 library:Library; 

13 END; 

14 DevicePtr=POINTER TO Device; 

15 UnitFlags=(active,inTask) ; 

16 UnitFlagSet=SET OF UnitFlags; 

17 UnitPtr=POINTER TO Unit; 

18 Unit=RECORD 

19 msgPort:MsgPortPtr; \ 

20 flags:UnitFlagSet; 

21 pad:BYTE; 

22 openCnt:CARDINAL; 

23 END; 

24 

25 CONST 

26 (* Standardbefehle für IORequest.command *) 

27 invalid=0; 

28 reset=l; 

29 read=2; 

30 write=3; 

31 update=4; 

32 clear=5; 

33 stop= 6 ; 

34 start=7; 

35 flush= 8 ; 

36 nonstd=9; 

37 (* Offstes der Devicespezifischen Funktionen *) 

38 abortIO=-36; 

39 beginIO=-30; / 

40 V 

41 TYPE 

42 IOFlagSet=SET OF [0..7]; 

43 

44 CONST 

45 quick=IOFlagSet{0}; 

46 

47 TYPE 

48 IORequest=RECORD 

49 messagerMessage; 
so device:DevicePtr; 

51 unit:UnitPtr; 

52 command:CARDINAL; 

53 flags:IOFlagSet; 

54 error:Byte; ( 

55 END; 

56 IORequestPtr=POINTER TO IORequest; 

57 IOStdReq=RECORD 
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1 message:Message; 

2 device:DevicePtr; 

3 unit:UnitPtr; 

4 command:CARDINAL; 

5 flags:IOFlagSet; 

6 error:Byte; 

7 actual:LONGCARD; 

8 length:LONGCARD; 

9 data:ADDRESS; 

10 Offset :LONGCARD; 

11 END; 

12 IOStdReqPtr=POINTER TO IOStdReq; 

13 Semaphore=RECORD 

14 msgPort:MsgPort; 

15 bids: INTEGER; 

16 END; 

17 SemaphoreRequest=RECORD 

18 link:MinNode; 

19 waiter:TaskPtr; 

20 END; 

21 SignalSemaphore=RECORD 

22 link:Node; 

23 nestCount:INTEGER; 

24 waitQueue:MinList; 

25 multipleLink:SemaphoreRequest; 

26 owner:TaskPtr; 

27 queueCount:INTEGER; 

28 END; 

29 SignalSemaphorePtr=POINTER TO SignalSemaphore; 

30 ResidentFlags=(coldstart,rf 1 ,rf 2 ,rf 3 ,rf 4 , rf 5 ,rf 6 ,autoinit); 

31 ResidentFlagSet=SET OF ResidentFlags; 

32 ResidentPtr=POINTER TO Resident; 

33 Resident=RECORD 

34 matchWord:CARDINAL; 

35 matchTag:ResidentPtr; 

36 endSkip:ADDRESS; 

37 flags:ResidentFlagSet; 

38 Version:UByte; 

39 type:NodeType; 

40 pri:Byte; 

41 name: ADDRESS; 

42 idString:ADDRESS; 

43 init: ADDRESS; 

44 END; 

45 

46 CONST 

47 matchword=04AFCH; 

48 

49 TYPE 

so AttnFlags= ( 

51 m68010,11168020, af2, af 3, m68881, af5, af 6, af' 1 , 

52 reserved8,reserved9 

53 ) ; 

54 AttnFlagSet=SET OF AttnFlags; 

55 ExecBase=RECORD 

56 ÜbNode: Library; 

57 sof tVer: CARDINAL; 
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1 lowMemChkSum: INTEGER; 

2 chkBase:LONGCARD; 

3 coldCapture:ADDRESS; 

4 coolCapture:ADDRESS; 

5 warmCapture:ADDRESS; 

6 sysStkUpper:ADDRESS; 

7 sysStkLower:ADDRESS; 

8 maxLocMem:LONGCARD; 

9 debugEntry:ADDRESS; 

10 debugData:ADDRESS; 

11 alertData:ADDRESS; 

12 maxExtMem:ADDRESS; 

13 chkSum:CARDINAL; 

14 intVects:ARRAY Hardware.IntFlags OF IntVector; 

15 thisTask:TaskPtr; 

16 idleCount:LONGCARD; 

17 dispCount:LONGCARD; 

18 quantum:CARDINAL; 

19 elapsed:CARDINAL; 

20 sysFlags:CARDINAL; 

21 idNestCnt:BYTE; 

22 tdNestCnt:BYTE; 

23 attnFlags:AttnFlagSet; 

24 attnResched:CARDINAL; 

25 resModules:ADDRESS; 

26 taskTrapCode:PROC; 

27 taskExceptCode:PROC; 

28 taskExitCode:PROC; 

29 taskSigAlloc:LONGSET; 

30 taskTrapAlloc:BITSET; 

31 memList:List; 

32 resourceList:List; 

33 deviceList:List; 

34 intrList:List; 

35 ÜbList :List; 

36 portList:List; 

37 taskReady:List; 

38 taskWait: List; 

39 softlnts:ARRAY [0..4] OF SoftlntList; 

40 lastAlert:ARRAY [0..3] OF LONGINT; 

41 vBlankFrequency:UByte; 

42 powerSupplyFrequency:UByte; 

43 semaphoreList:List; 

44 kickMemPtr:ADDRESS; 

45 kickTagPtr:ADDRESS; 

46 kickCheckSum:ADDRESS; 

47 execBaseReserved:ARRAY [0..9] OF BYTE; 

48 execBaseNewReserved:ARRAY [0..19] OF BYTE; 

49 END; 

so ExecBasePtr=POINTER TO ExecBase; 

51 

52 VAR 

53 execBase[4]:ExecBasePtr; 

54 

55 PROCEDURE AbortIO(iORequest{9}:ADDRESS); CODE -480; 

56 PROCEDURE AddDevice(device{9}:DevicePtr); CODE -432 

57 PROCEDURE AddHead(list{8}:ListPtr; 


Exec 


1 node{9}:ADDRESS); CODE -240; 

2 PROCEDURE AddlntServer(intNum{0}:Hardware.IntFlags; 

3 interrupt{9}:InterruptPtr); CODE -168; 

4 PROCEDURE AddLibrary(library{9):LibraryPtr); CODE -396; 

5 PROCEDURE AddMemList(size{0}:LONGINT; 

6 attributes{l}:MemReqSet; 

7 pri{2}:LONGINT; 

8 base{8}:ADDRESS; 

9 name{9}:ADDRESS):LONGINT; CODE -618; 

io PROCEDURE AddPort(port{9}:MsgPortPtr); CODE -354; 

n PROCEDURE AddResource(resource{9};ADDRESS); CODE -486; 

12 PROCEDURE AddSemaphore( 

13 signalSemaphore{8}:SignalSemaphorePtr); CODE -600; 

14 PROCEDURE AddTail(list{8):ListPtr; 

15 node{9}:ADDRESS); CODE -246; 

16 PROCEDURE AddTask(task{9}:TaskPtr; 

n initialPC{10}rADDRESS; 

18 finalPC{11}:ADDRESS) ; CODE -282; 

19 PROCEDURE Alert(alertNum{7)tLONGINT; 

20 Parameters{13}:ADDRESS); CODE -108; 

21 PROCEDURE AllocAbs(byteSize{0}:LONGINT; 

22 location{9}:ADDRESS):ADDRESS; CODE -204; 

23 PROCEDURE Allocate(freeList{8}:MemHeaderPtr; 

24 byteSize(O):LONGINT):ADDRESS; CODE -186; 

25 PROCEDURE AllocEntry( 

26 memListl{8}:MemListPtr):MemListPtr; CODE -222; 

27 PROCEDURE AllocMem( 

28 byteSize{0):LONGINT; 

29 requirements{1}:MemReqSet):ADDRESS; CODE -198; 

30 PROCEDURE AllocSignal( 

31 signalNuml{0}tLONGINT):LONGINT; CODE -330; 

32 PROCEDURE AllocTrap(trapNuml{0):LONGINT):LONGINT; CODE -342; 

33 PROCEDURE AttemptSemaphore( 

34 signalSemaphore{8}:SignalSemaphorePtr 

35 ):LONGINT; CODE -576; 

36 PROCEDURE AvailMem( 

37 requirements{l}:MemReqSet):LONGINT; CODE -216; 

38 PROCEDURE Cause(interrupt{9}:InterruptPtr); CODE -180; 

39 PROCEDURE ChecklO(ioRequest{9}rADDRESS):ADDRESS; CODE -468; 

40 PROCEDURE CloseDevice(ioRequest{9}:ADDRESS); CODE -450; 

41 PROCEDURE CloseLibrary(library{9);LibraryPtr); CODE -414; 

42 PROCEDURE CopyMem(source{8}:ADDRESS; 

43 dest{9}tADDRESS; . 

44 size{0}:LONGINT); CODE -624; 

45 PROCEDURE CopyMemQuick(source{8}:ADDRESS; 

46 dest{9}:ADDRESS; 

47 size{0}:LONGINT); CODE -630; 

48 PROCEDURE Deallocate(freeList(8}:MemHeaderPtr; 

49 memoryBlock{9}:ADDRESS; 

50 byteSize(O):LONGINT); CODE -192; 

51 PROCEDURE DebugO; CODE -114; 

52 PROCEDURE DisableO; CODE -120; 

53 (* PRIVATE *) PROCEDURE Dispatch(); CODE -60; 

54 PROCEDURE DoIO(ioRequest{9}:ADDRESS); CODE -456; 

55 PROCEDURE EnableO; CODE -126; 

56 PROCEDURE Enqueue(list{8):ListPtr; 

57 node{9):ADDRESS); CODE -270; 
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1 (* PRIVATE *) PROCEDÜRE Exception(); CODE -66; 

2 (* PRIVATE *) PROCEDÜRE ExitlntrO; CODE -36; 

3 PROCEDÜRE FindName(Start{8}:ADDRESS; 

4 name{9}:ADDRESS)sADDRESS; CODE -276; 

5 PROCEDÜRE FindPort(name{9}:ADDRESS)rMsgPortPtr; CODE -390; 

6 PROCEDÜRE FindResident( 

7 name{9}:ADDRESS):ResidentPtr; CODE -96; 

8 PROCEDÜRE FindSemaphore( 

9 name{8}:ADDRESS):SignalSemaphorePtr; CODE -594; 

10 PROCEDÜRE FindTask(name{9}rADDRESS)rTaskPtr; CODE -294; 

11 PROCEDÜRE ForbidO; CODE -132; 

12 PROCEDÜRE FreeEntry(memList{8}:MemListPtr); CODE -228; 

13 PROCEDÜRE FreeMem(memoryBlock{9}:ADDRESS; 

14 byteSize{0}rLONGINT); CODE -210; 

15 PROCEDÜRE FreeSignal(signalNum{0}:LONGINT); CODE -336; 

16 PROCEDÜRE FreeTrap(trapNum{0}rLONGINT); CODE -348; 

17 PROCEDÜRE GetCCO :BITSET; CODE -528; 

18 PROCEDÜRE GetMsg(port{8}:MsgPortPtr):ADDRESS; CODE -372; 

19 PROCEDÜRE InitCode (startClass {0 } rResident-FlagSet; 

20 version{1}:LONGINT); CODE -72; 

21 PROCEDÜRE InitResident(resident{9}rResidentPtr; 

22 segList{1}lADDRESS); CODE -102; 

23 PROCEDÜRE InitSemaphore( 

24 signalSemaphore{8}:SignalSemaphorePtr); CODE -558; 

25 PROCEDÜRE InitStruct(initTable{9}:ADDRESS; 

26 memory{10}:ADDRESS; 

27 size{0}:CARDINAL); CODE -78; 

28 PROCEDÜRE Insert(list{8}:ListPtr; 

29 node{9}lADDRESS; 

30 listNode{10}:ADDRESS); CODE -234; 

31 PROCEDÜRE MakeFunctions(target{8}lADDRESS; 

32 functArray{9}lADDRESS; 

33 functDispBase{10}:ADDRESS); CODE -90; 

34 PROCEDÜRE MakeLibrary( 

35 vectors{8}lADDRESS; 

36 structure{9}lADDRESS; 

37 init{10}lADDRESS; 

38 dataSize{0}rLONGINT; 

39 segList{1}lADDRESS)rLibraryPtr; CODE -84; 

40 PROCEDÜRE ObtainSemaphore( 

41 signalSemaphore{8}:SignalSemaphorePtr); CODE -564; 

42 PROCEDÜRE ObtainSemaphoreList(list{8}:ListPtr); CODE -582; 

43 PROCEDÜRE OldOpenLibrary( 

44 libName{9}:ADDRESS)rLibraryPtr; CODE -408; 

45 PROCEDÜRE OpenDevice(devName{8}rADDRESS; 

46 unitNumber{0}r LONGINT; 

47 ioRequest{9}rADDRESS; 

48 flags{1}rLONGSET); CODE -444; 

49 PROCEDÜRE OpenLibrary( 

so ÜbName { 9} r ADDRESS; 

51 version{0}rLONGINT)rLibraryPtr; CODE -552; 

52 PROCEDÜRE OpenResource(resName{9}rADDRESS)rADDRESS; CODE -498 

53 PROCEDÜRE PermitO; CODE -138; 

54 PROCEDÜRE Procure( 

55 semaphore{8}r MsgPortPtr; 

56 bidMessage{9}rMsgPortPtr)rLONGINT; CODE -540; 

57 PROCEDÜRE PutMsg(port{8}rMsgPortPtr; 
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1 message{9}:ADDRESS); CODE -366; 

2 (* PRIVATE *) PROCEDURE RawDoFmt( 

3 formatString{8}rADDRESS; 

4 dataStream{9}:ADDRESS; 

s putChProc{10}:ADDRESS; 

« putChData{11}:ADDRESS); CODE -522; 

7 (* PRIVATE *) PROCEDURE RawIOInitO; CODE -504; 

8 (* PRIVATE *) PROCEDURE RawMayGetChar():CHAR; CODE -510; 

9 (* PRIVATE *) PROCEDURE RawPutChar(ch{0}:CHAR); CODE -516; 
io PROCEDURE ReleaseSemaphore( 

n signalSemaphore{8}:SignalSemaphorePtr); CODE -570; 

12 PROCEDURE ReleaseSemaphoreList(list{8}:ListPtr); CODE -588; 

13 PROCEDURE RemDevice(device{9}rDevicePtr):LONGINT; CODE -438; 

14 PROCEDURE RemHead(list{8}:ListPtr):ADDRESS; CODE -258; 

15 PROCEDURE RemlntServer(intNum(O):Hardware.IntFlags; 

16 interrupt{9}:InterruptPtr); CODE -174; 
n PROCEDURE RemLibrary( 

18 library{9}:LibraryPtr):LONGINT; CODE -402; 

19 PROCEDURE Remove(node{9}rADDRESS); CODE -252; 

20 PROCEDURE RemPort(port{9}rMsgPortPtr); CODE -360; 

21 PROCEDURE RemResource(resource{9}:ADDRESS); CODE -492; 

22 PROCEDURE RemSemaphore( 

23 signalSemaphore{8):SignalSemaphorePtr); CODE -606; 

24 PROCEDURE RemTail(list{8}rListPtr):ADDRESS; CODE -264; 

25 PROCEDURE RemTask(task(9}:TaskPtr); CODE -288; 

26 PROCEDURE ReplyMsg(message{9}:ADDRESS); CODE -378; 

27 (* PRIVATE *) PROCEDURE Reschedule(); CODE -48; 

28 (* PRIVATE *) PROCEDURE ScheduleO; CODE -42; 

29 PROCEDURE SendIO(ioRequest{9}:ADDRESS); CODE -462; 

30 PROCEDURE SetExcept(newSignals{0}:LONGSET; 

31 signalMask{1}:LONGSET):LONGSET; CODE -312; 

32 PROCEDURE SetFunction( 

33 library{9}:LibraryPtr; 

34 funcOffset{8}:INTEGER; 

35 funcEntry{0}:ADDRESS):ADDRESS; CODE -420; 

36 PROCEDURE SetlntVector( 

37 intNumber{0}:Hardware.IntFlags; 

38 interrupt{9)rInterruptPtr)rInterruptPtr; CODE -162; 

39 PROCEDURE SetSignal(newSignals{0}:LONGSET; 

40 signalMask(l)rLONGSET)rLONGSET; CODE -306; 

41 PROCEDURE SetSR(newSR{0):BITSET; 

42 mask(l)rBITSET);BITSET; CODE -144; 

43 PROCEDURE SetTaskPri(task{9}:TaskPtr; 

44 priority(O):Byte):Byte; CODE -300; 

45 PROCEDURE Signal(task{9};TaskPtr; 

46 signals(O)rLONGSET); CODE -324; 

47 PROCEDURE SumKickDataO ; CODE -612; 

48 PROCEDURE SumLibrary(library{9}rLibraryPtr); CODE -426; 

49 PROCEDURE SuperState()rADDRESS; CODE -150; 

50 (* PRIVATE *) PROCEDURE Supervisor(); CODE -30; 

51 (* PRIVATE *) PROCEDURE Switch(); CODE -54; 

52 PROCEDURE TypeOfMem(address{9}rADDRESS)rMemReqSet; CODE -534; 

53 PROCEDURE UserState(sysStack(O)rADDRESS); CODE -156; 

54 PROCEDURE Vacate(semaphore{8}rMsgPortPtr); CODE -546; 

55 PROCEDURE Wait(signalSet{0}rLONGSET)rLONGSET; CODE -318; 

56 PROCEDURE WaitIO(ioRequest{9}rADDRESS); CODE -474; 

57 PROCEDURE WaitPort(port(8)rMsgPortPtr); CODE -384; 
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1 

2 END Exec. 

3 
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ExecSupport 


5 (* $N- *) 

6 DEFINITION MODULE ExecSupport; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS; 

io FROM Exec IMPORT 

n Byte,ListPtr,IOStdReqPtr,MsgPortPtr,TaskPtr; 

12 

13 PROCEDURE NewList(list{8}:ListPtr); 

14 PROCEDURE BeginlO(ioRequest{9}:ADDRESS); 

15 PROCEDURE AbortIO(ioRequest{9}:ADDRESS); 

16 PROCEDURE CreatePort(portName:ADDRESS; 

17 priority:Byte):MsgPortPtr; 

18 PROCEDURE DeletePort(msgPort:MsgPortPtr); 

19 PROCEDURE CreateExtIO(ioReplyPort:MsgPortPtr; 

20 size: INTEGER) -.ADDRESS; 

21 PROCEDURE DeleteExtIO(extlOReq:ADDRESS); 

22 PROCEDURE CreateStdlO(ioReplyPort:MsgPortPtr):IOStdReqPtr; 

23 PROCEDURE DeleteStdIO(ioStdReq:IOStdReqPtr); 

24 PROCEDURE CreateTask(taskName:ADDRESS; 

25 priority:Byte; 

26 initPC:ADDRESS; 

27 stackSize:LONGINT):TaskPtr; 

28 PROCEDURE DeleteTask(t-.TaskPtr) ; 

29 

30 END ExecSupport. 

31 
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Expansion 


5 DEFINITION MODULE Expansion {"expansion.library",33}; 

6 

7 FROM SYSTEM IMPORT 

8 ADDRESS,BYTE,LONGSET; 

9 FROM Exec IMPORT 
io Node,UByte; 

n 

12 TYPE 

13 ExpansionRom=RECORD 

14 type:UByte; 

15 product:UByte; 

16 flags:UByte; 

17 reserved03:UByte; 

18 manufacturer:CARDINAL; 

19 s e riaINumbe r:LONGCARD; 

20 initDiagVec:CARDINAL; 

21 reservedOc:UByte; 

22 reservedOd:UByte; 

23 reservedOe:UByte; 

24 reservedOf:UByte 

25 END; 

26 ExpansionControl=RECORD 

27 interrupt:UByte; 

28 reservedll:UByte; 

29 baseAddress:UByte; 

30 shutup:UByte; 

31 reservedl4:UByte; 

32 reservedl5:UByte; 

33 reservedlö:UByte; 

34 reservedl7:UByte; 

35 reservedl8:UByte; 

36 reservedl9:UByte; 

37 reservedla:UByte; 

38 reservedlb:UByte; 

39 reservedlc:UByte; 

40 reservedld:UByte; 

41 reservedle:UByte; 

42 reservedlf:UByte; 

43 END; 

44 

45 CONST 

46 slotSize=10000H; 

47 slotMask=OFFFFH; 

48 slotShift=16; 

49 expansionBase=0E80000H; 
so expansionSize=080000H; 

51 expansionSlots=8; 

52 memoryBase=200000H; 

53 memorySize=800000H; 

54 memorySlots=128; 

55 typrMask=0C0H; 

56 typeBit=6; 

57 typeSize=2; 
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1 newBoard=0C0H; 

2 memMask=07H; 

3 memBit=0; 

4 memSize=3; 

5 chainedConfig=3; 

6 diagValid=4; 

7 memList=5; 

8 memSpace=7; 

9 noShutup=6; 
io 

n intena=l; 

12 reset=3; 

13 int2pend=4; 

14 int6pend=5; 

15 int7pend=6; 

16 interrupting=7; 

17 

18 TYPE 

19 DiagArea=RECORD 

20 config:UByte; 

21 flags:UByte; 

22 size:CARDINAL; 

23 diagPoint:CARDINAL; 

24 bootPoint:CARDINAL; 

25 n ame: CARD IN AL; 

26 reservedOl:CARDINAL; 

27 reservedO2:CARDINAL 

28 END; 

29 

30 CONST 

31 busWidth=0C0H; 

32 nibbleWide=0; 

33 byteWide=040H; 

34 wordWide=080H; 

35 bootTime=030H; 

36 never=0; 

37 configTime=010H; 

38 bindTime=020H; 

39 

40 TYPE 

4 1 ConfigDevPtr=POINTER TO ConfigDev; 

42 ConfigDev=RECORD 

43 node:Node; 

44 flags:UByte; 

45 pad:UByte; 

46 rom:ExpansionRom; 

47 boardAddr:ADDRESS; 

48 boardSize:ADDRESS; 

49 s1otAddr:CARDINAL; 

50 slotSize:CARDINAL; 

5 1 driver: ADDRESS ; 

52 nextCD:ConfigDevPtr; 

53 unused:ARRAY [0..3] OF LONGINT; 

54 END; 

55 

56 CONST 

57 shutup= 0 ; 
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1 configMe=l; 

2 


3 TYPE 


4 CurrentBinding=RECORD 

5 configDev:ConfigDevPtr; 

6 fileName:ADDRESS; 

7 productString:ADDRESS; 

8 toolTypes:ADDRESS; 

9 END; 

10 CurrentBindingPtr=POINTER TO CurrentBinding; 

11 


12 PROCEDURE 

13 PROCEDURE 

14 

15 

16 

17 PROCEDURE 

18 

19 PROCEDURE 

20 PROCEDURE 

21 
22 

23 

24 PROCEDURE 

25 

26 

27 PROCEDURE 

28 PROCEDURE 

29 PROCEDURE 

30 

31 

32 PROCEDURE 

33 

34 PROCEDURE 

35 PROCEDURE 

36 

37 PROCEDURE 

38 

39 

40 PROCEDURE 

41 

42 PROCEDURE 

43 PROCEDURE 

44 

45 PROCEDURE 

46 

47 

48 PROCEDURE 

49 PROCEDURE 
so PROCEDURE 

51 

52 

53 PROCEDURE 

54 


55 


56 


AddConfigDev(configDev{8}:ConfigDevPtr); CODE -30; 
AddDosNode( 
bootPri{0}:LONGINT; 
flags{1}:LONGSET; 

deviceNode{8}:ADDRESS):LONGINT; CODE -150; 
AllocBoardMem( 

slotSpec{0}:LONGINT):LONGINT; CODE -42; 

AllocConfigDev():ConfigDevPtr; CODE -48; 
AllocExpansionMem( 
numSlots{0}:LONGINT; 
slotAlign{1}:LONGINT; 

slotOffset{2}:LONGINT):LONGINT; CODE -54; 

ConfigBoard( 
board{8}:ADDRESS; 

configDev{9}:ConfigDevPtr)rLONGINT; CODE -60; 

ConfigChain(baseAddr{8}:ADDRESS); CODE -66; 
expansionUnused(); CODE -36; 

FindConfigDev(oldConfigDev{8}:ConfigDevPtr; 

manufacturer{0}:LONGINT; 
product{l}:LONGINT); CODE -72; 
FreeBoardMem(StartSlot{0}:LONGINT; 

slotSpeca> :LONGINT) ; CODE -78; 
FreeConfigDev(configDev{8}:ConfigDevPtr); CODE -84; 
FreeExpansionMem(startSlot{0}:LONGINT; 

numSlots{1}:LONGINT); CODE -90; 
GetCurrentBinding( 

CurrentBinding{8}:CurrentBindingPtr; 
size{0}:LONGINT):LONGINT; CODE -138; 

MakeDosNode( 

parameterPkt{0}:ADDRESS):ADDRESS; CODE -144; 
ObtainConfigBinding(); CODE -120; 

ReadExpansionByte(board{8}:ADDRESS; 

Offset{0}rLONGINT):BYTE; CODE -96 

ReadExpansionRom( 
board{8}:ADDRESS; 

configDev{9}:ConfigDevPtr):LONGINT; CODE -102; 
ReleaseConfigBinding(); CODE -126; 

RemConfigDev(configDev{8}:ConfigDevPtr); CODE -108; 
SetCurrentBinding( 

CurrentBinding{8}:CurrentBindingPtr; 

size{0}:LONGINT); CODE -132; 

WriteExpansionByte(board{8}:ADDRESS; 

offset{0}rLONGINT; 

byte{1}:BYTE); CODE -114; 


57 END Expansion. 
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GamePort 


5 (* $M- *) 

6 DEFINITION MODULE GamePort; 

7 

8 FROM Exec IMPORT 

9 nonstd; 

10 

11 CONST 

12 gamePortName="gameport.device"; 

13 readEvent=nonstd+0; 

14 askCType=nonstd+l; 

15 setCType=nonstd+2; 

16 askTrigger=nonstd+3; 

17 setTrigger=nonstd+4; 

18 allocated=-l; 

19 errSetCType=l; ( 

20 

21 TYPE 

22 Keys=(downKeys,upKeys,k2,k3,k4,k5,k6,k7,k8); 

23 KeySet=SET OF Keys; 

24 GamePortTrigger=RECORD 

25 keys:KeySet; 

26 timeout:CARDINAL; 

27 xDelta:CARDINAL; 

28 yDelta:CARDINAL; 

29 END; 

30 Controller=(noController,mouse,relJoystick,absJoystick); 

31 

32 END GamePort. 

33 
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GfxMacros 


5 (* $N- *) 

6 DEFINITION MODULE GfxMacros; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS, BYTE; 

io FROM Graphics IMPORT 
n BobPtr, RastPortPtr, UCopListPtr; 

12 

13 PROCEDURE InitAnimate(animKey:ADDRESS); 

14 PROCEDURE RemBob (bob:BobPtr) ; 

15 PROCEDURE RasSize (w, h: CARDINAL) : CARDINAL; 

16 PROCEDURE OnDisplay; 

17 PROCEDURE OffDisplay; 

18 PROCEDURE OnSprite; 

19 PROCEDURE OffSprite; 

20 PROCEDURE OnVBlank; 

21 PROCEDURE OffVBlank; 

22 PROCEDURE SetOPen(rp:RastPortPtr; pen:CARDINAL); 

23 PROCEDURE SetDrPt(rp:RastPortPtr; pattern:CARDINAL); 

24 PROCEDURE SetWrMsk(rp:RastPortPtr; mask:BYTE); 

25 PROCEDURE SetAfPen(rp:RastPortPtr; 

26 areaPattern:ADDRESS; size:CARDINAL); 

27 PROCEDURE BndryOff(rp:RastPortPtr); 

28 PROCEDURE CINIT(c:UCopListPtr; n:LONGINT); 

29 PROCEDURE CMOVE(c:UCopListPtr; a:ADDRESS; b:INTEGER); 

30 PROCEDURE CWAIT(c:UCopListPtr; a, b:INTEGER); 

31 PROCEDURE CEND(c:UCopListPtr; a, b:INTEGER); 

32 PROCEDURE DrawCircle(rp:RastPortPtr; cx, cy, r:INTEGER); 

33 PROCEDURE AreaCircle(rp:RastPortPtr; cx, cy, r:INTEGER); 

34 

35 END GfxMacros. 

36 


Schrüttstellen-Moduln 


13-35 



Graphics 


Graphics 


5 DEFINITION MODULE Graphics {"graphics.library", 33 }; 

6 

7 FROM SYSTEM IMPORT 

8 ADDRESS/BITSET/BYTE,LONGSET,WORD; 

9 FROM Hardware IMPORT 
io bltnodePtr; 

n FROM Exec IMPORT 

12 Interrupt,Library,List,Message,MinList,Node,SignalSemaphore, 

13 SignalSemaphorePtr,TaskPtr,UByte; 

14 

15 TYPE 

16 AnimCompPtr=POINTER TO AnimComp; 

17 AnimObPtr=POINTER TO AnimOb; 

18 AreaInfoPtr=POINTER TO Areainfo; 

19 BitMapPtr=POINTER TO BitMap; 

20 BobPtr=POINTER TO Bob; 

21 ClipRectPtr=POINTER TO ClipRect; 

22 CollTablePtr=POINTER TO CollTable; 

23 ColorMapPtr=POINTER TO ColorMap; 

24 CopinitPtr=POINTER TO Copinit; 

25 CopInsPtr=POINTER TO Coplns; 

26 CopListPtr=POINTER TO CopList; 

27 CprlistPtr=POINTER TO Cprlist; 

28 DBufPacketPtr=POINTER TO DBufPacket; 

29 GelsInfoPtr=POINTER TO Geisinfo; 

30 IsrvstrPtr=POINTER TO IsrvstrPtr; 

3 1 LayerPtr=POINTER TO Layer; 

32 LayerInfoPtr=POINTER TO Layerlnfo; 

33 RaslnfoPtr=POINTER TO Rasinfo; 

34 RastPortPtr=POINTER TO RastPort; 

35 RectanglePtr=POINTER TO Rectangle; 

36 RegionPtr=POINTER TO Region; 

37 RegionRectanglePtr=POINTER TO RegionRectangle; 

38 SimpleSpritePtr=POINTER TO SimpleSprite; 

39 TextAttrPtr=POINTER TO TextAttr; 

40 TextFontPtr=POINTER TO TextFont; 

41 TmpRasPtr=POINTER TO TmpRas; 

42 UCopListPtr=POINTER TO UCopList; 

43 ViewPtr=POINTER TO View; 

44 ViewPortPtr=POINTER TO ViewPort; 

45 VSpritePtr=POINTER TO VSprite; 

46 

47 Rectangle=RECORD 

48 minX:INTEGER; 

49 minY:INTEGER; 
so maxX:INTEGER; 

51 maxY: INTEGER; 

52 END; 

53 Layer=RECORD 

54 front:LayerPtr; 

55 back:LayerPtr; 

56 clipRect:ClipRectPtr; 

57 rp:RastPortPtr; 



Graphics 


1 bounds:Reetangle; 

2 reserved:ARRAY [0..3] OF BYTE; 

3 priority:CARDINAL; 

4 flags:CARDINAL; 

5 superBitMap:BitMapPtr; 

6 superClipRect:ClipRectPtr; 

7 window:ADDRESS; 

8 scrollX:INTEGER; 

9 scrollY:INTEGER; 
io er:ClipRectPtr; 
n cr2:ClipRectPtr; 

12 ernew:ClipRectPtr; 

13 superSaveClipRects:ClipRectPtr; 

14 cliprectsrClipRectPtr; 

15 layerlnfo:LayerInfoPtr; 

16 lock:SignalSemaphore; 

17 reserved3:ARRAY [0..7] OF BYTE; 

18 clipRegion:RegionPtr; 

19 saveClipRects:RegionPtr; 

20 reserved2:ARRAY [0..21] OF BYTE; 

21 damageList:RegionPtr; 

22 END; 

23 ClipRect=RECORD 

24 next:ClipRectPtr; 

25 prev:ClipRectPtr; 

26 lobs:LayerPtr; 

27 bitMap:BitMapPtr; 

28 bounds:Reetangle; 

29 pl:ClipRectPtr; 

30 p2:ClipRectPtr; 

3 1 reserved:LONGINT; 

32 flags:LONGINT; 

33 END; 

34 

35 CONST 

36 needsNoConcealedRasters=01H; 

37 isLessX=l; 

38 isLessY=2; 

39 isGrtrX=4; 

40 isGrtrY=8; 

41 borderHit=0; 

42 topHit=l; 

43 bottomHit=2; 

44 leftHit=4; 

45 rightHit=8; 

46 

47 CONST 

48 move=0; 

49 wait=l; 
so next=2; 

51 sht=14; 

52 lof=15; 

53 

54 TYPE 

55 CopIns=RECORD 

56 CASE opCode: CARDINAL OF 

57 | move: 
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1 destAddr:INTEGER; 

2 destData:INTEGER; 

3 | wait: 

4 vWaitPos:INTEGER; 

s hWaitPos:INTEGER; 

6 | next: 

7 nxtlist:CopListPtr; 

8 END; 

9 END; 

io Cprlist=RECORD 
n next:CprlistPtr; 

12 Start: ADDRESS; 

13 maxCount:INTEGER; 

14 END; 

15 CopList=RECORD 

16 next: CopListPtr; 

17 copList:CopListPtr; 

18 viewPort:ViewPortPtr; 

19 coplns:CopInsPtr; 

20 copPtr:CopInsPtr; 

21 copLStart:ADDRESS; 

22 copSStart:ADDRESS; 

23 count: INTEGER; 

24 maxCount:INTEGER; 

25 dyOffset:INTEGER; 

26 END; 

27 UCopList=RECORD 

28 next:UCopListPtr; 

29 firstCopList:CopListPtr; 

30 copList:CopListPtr; 

31 END; 

32 Copinit=RECORD 

33 diagstrt:ARRAY [0..3] OF CARDINAL; 

34 sprstrtup:ARRAY [0..(2*8*2)+2+(2*2)+2-1] OF CARDINAL 

35 sprstop:ARRAY [0..1] OF CARDINAL; 

36 END; 

37 

38 CONST 

39 interlace=04H; 

40 pf 2pri=40H; 

41 colorOn=200H; 

42 dblpf=400H; 

43 holdnmodify=800H; 

44 m640=08000H; 

45 plnCntMsk=07H; 

46 plnCntShft=12; 

47 

48 fineScroll=0FH; 

49 fineScrollShift=04H; 
so fineScrollMask=0FH; 

5 1 vrtclPos=01FFH; 

52 vrtclPosShift=07H; 

53 horizPos=07FH; 

54 dftchMask=0FFH; 

55 vposrlof=08000H; 

56 

57 ringtrigger=01H; 
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1 anfracsize=06H; 

2 animhalf=020H; 

3 

4 b2Norm=0; 

5 b2Swap=l; 

6 b2Bobber=2; 

7 

8 TYPE 

9 VSpriteFlags=(vsprite, saveBack,overlay,mustDraw,vf4,vf5,vf6,v 

io bobupdate,gelGone,vsOverflow); 

n VSpriteFlagSet=SET OF VSpriteFlags; 

12 VSprite=RECORD 

13 nextVSprite:VSpritePtr; 

14 prevVSprite:VSpritePtr; 

15 drawPath:VSpritePtr; 

16 clearPath:VSpritePtr; 

17 oldY:INTEGER; 

18 oldX:INTEGER; 

19 flags:VSpriteFlagSet; 

20 y: INTEGER; 

21 x: INTEGER; 

22 height: INTEGER; 

23 width:INTEGER; 

24 depth:INTEGER; 

25 meMask:BITSET; 

26 hitMask:BITSET; 

27 imageData:ADDRESS; 

28 borderLine:ADDRESS; 

29 collMask:ADDRESS; 

30 sprColors:ADDRESS; 

3 1 vsBob:BobPtr; 

32 planePick:UByte; 

33 planeOnOff:UByte; 

34 END; 

35 BobFlags= ( 

36 saveBob,bobIsComp,bf2,bf3,bf4,bf5,bf6,bf7, 

37 bWaiting,bDrawn,bobsAway,bobNix,savePreserve,outStep 

38 ) ; 

39 BobFlagSet=SET OF BobFlags; 

40 Bob=RECORD 

41 flags:BobFlagSet; 

42 saveBuffer:ADDRESS; 

43 imageShadow:ADDRESS ; 

44 before:BobPtr; 

45 after :BobPtr; 

46 bobVSprite:VSpritePtr; 

47 bobComp:AnimCompPtr; 

48 dBuffer:DBufPacketPtr; 

49 END; 

so AnimComp=RECORD 
si flags:INTEGER; 

52 timer: INTEGER; 

53 timeSet:INTEGER; 

54 nextComp:AnimCompPtr; 

55 prevComp:AnimCompPtr ; 

56 nextSeq:AnimCompPtr; 

57 prevSeq:AnimCompPtr; 
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1 animCRoutine:ADDRESS; 

2 yTrans:INTEGER; 

3 xTrans:INTEGER; 

4 headOb:AnimObPtr; 

5 animBob:BobPtr; 

6 END; 

7 AnimOb=RECORD 

8 nextOb:AnimObPtr; 

9 prevOb:AnimObPtr; 
io clock:LONGINT; 

n anOldY:INTEGER; 

12 anOldX:INTEGER; 

13 anY:INTEGER; 

14 anX:INTEGER; 

15 yVel: INTEGER; 

16 xVel:INTEGER; 

17 yAccel:INTEGER; 

18 xAccel:INTEGER; 

19 ringYTrans:INTEGER; ( 

20 ringXTrans:INTEGER; 

21 animORoutine:ADDRESS; 

22 headComp:AnimCompPtr; 

23 END; 

24 DBufPacket=RECORD 

25 bufY:INTEGER; 

26 bufX:INTEGER; 

27 bufPath:VSpritePtr; 

2 8 bu fBu f fe r:ADDRE S S; 

29 END; 

30 CollTable=RECORD 

31 CollPtrs:ARRAY [0..15] OF ADDRESS 

32 END; 

33 BitMap=RECORD 

34 bytesPerRow:CARDINAL ; 

35 rows: CARDINAL; 

36 flags:UByte; 

37 depth:UByte; 

38 pad:CARDINAL; 

39 planes:ARRAY [0..7] OF ADDRESS; 

40 END; ( 

41 DisplayFlags=(ntsc,genloc,pal); 

42 DisplayFlagSet=SET OF DisplayFlags; 

43 GfxBase=RECORD 

44 ÜbNode: Library; 

45 actiView: ViewPtr; 

46 copinit:CopinitPtr; 

47 cia: ADDRESS; 

48 blitter:ADDRESS; 

49 loFlist .-ADDRESS; 
so shFlist: ADDRESS ; 

5 1 blthd:bltnodePtr; 

52 blttl:bltnodePtr; 

53 bsblthdibltnodePtr; 

54 bsblttlibltnodePtr; ( 

55 vbsrv:Interrupt; 

56 timsrv:Interrupt; 

57 bltsrv:Interrupt; 
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) 


1 textFonts:List; 

2 defaultFont:TextFontPtr; 

3 modes:BITSET; 

4 vBlank:UByte; 

5 debug:BYTE; 

6 beamSync:INTEGER; 

7 bplconO:BITSET; 

8 spriteReserved:UByte; 

9 bytereserved:BYTE; 

10 f lags : BITSET; 

11 blitLock:INTEGER; 

12 blitNest:INTEGER; 

13 blitWaitQ:List; 

14 blitOwner:TaskPtr; 

15 waitQ:List; 

16 displayFlags:DisplayFlagSet; 

17 simpleSprites:ADDRESS; 

18 maxDisplayRow:CARDINAL; 

19 maxDisplayColumn:CARDINAL; 

20 normalDisplayRows:CARDINAL; 

21 normalDisplayColumns:CARDINAL; 

22 normalDPMX:CARDINAL; 

23 normalDPMY:CARDINAL; 

24 lastChanceMemory:SignalSemaphorePtr; 

25 lcMptr:ADDRESS; 

26 microsPerLine:CARDINAL; 

27 reserved:ARRAY [0..1] OF LONGCARD; 

28 END; 

29 GfxBasePtr=POINTER TO GfxBase; 

30 

31 CONST 

32 blitMsgFault=4; 

33 

34 TYPE 

35 Isrvstr=RECORD 

36 node:Node; 

37 iptr:IsrvstrPtr; 

38 Code: ADDRESS; 

39 ccode:ADDRESS; 

40 carg:INTEGER; 

41 END; 

42 LayerFlags= ( 

43 layerSimple,layerSmart,layerSuper,lf3,layerUpdating,lf5, 

44 layerBackdrop,layerRefresh,layerClipRectsLost 

45 ) ; 

46 LayerFlagSet=SET OF LayerFlags; 

47 LayerInfo=RECORD 

48 layer:LayerPtr; 

49 lp:LayerPtr; 
so obs: LayerPtr; 

51 freeClipRects:MinList; 

52 lock:SignalSemaphore; 

53 head:List; 

54 longreserved:LONGINT; 

55 flags:LayerFlagSet; 

56 count:UByte; 

57 lockLayersCount:UByte; 
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1 layerlnfoExtraSize:CARDINAL; 

2 blitbuff:ADDRESS; 

3 layerInfoExtra:ADDRESS; 

4 END; 

5 

6 CONST 

7 lmnRegion=-l; 

8 newLayerInfoCalled=01H; 

9 alertLayersNoMem=083010000H; 

10 

11 TYPE 

12 AreaInfo=RECORD 

13 vctrTbl:ADDRESS; 

14 vetrPtr:ADDRESS; 

15 flagTbl:ADDRESS; 

16 flagPtr:ADDRESS; 

17 count:INTEGER; 

18 maxCount: INTEGER; 

19 firstX:INTEGER; 

20 firstY:INTEGER; 

21 END; 

22 TmpRas=RECORD 

23 rasPtr:ADDRESS; 

24 size:LONGINT; 

25 END; 

26 GelsInfo=RECORD 

27 sprRsrvd:BYTE; 

28 flagsiBYTE; 

29 gelHead:VSpritePtr; 

30 gelTail:VSpritePtr; 

31 nextLine:ADDRESS; 

32 lastColor:ADDRESS; 

33 collHandler:CollTablePtr; 

34 leftmost:INTEGER; 

35 rightmost:INTEGER; 

36 topmost:INTEGER; 

37 bottommost:INTEGER; 

38 firstBlissObj:ADDRESS; 

39 lastBlissObj:ADDRESS; 

40 END; 

41 DrawModes=(dmO,complement/inversvid); 

42 DrawModeSet=SET OF DrawModes; % 

43 FontStyles=(underlined,bold,italic,extended); 

44 FontStyleSet=SET OF FontStyles; 

45 FontFlags= ( 

46 romFont,diskFont,revPath,tallDot,wideDot,proportional, 

47 designed,removed 

48 ) ; 

49 FontFlagSet=SET OF FontFlags; 
so RastPortFlags=( 

51 firstDot,oneDot,dBuffer,areaOutline,rpf4,noCrossFill, 

52 rpf 6, rpf 7, rpf 8 

53 ) ; 

54 RastPortFlagSet=SET OF RastPortFlags; 

55 RastPort=RECORD 

56 layer:LayerPtr; 

57 bitMap:BitMapPtr; 



Graphics 


) 


) 



1 areaPtrn:ADDRESS; 

2 tmpRas:TmpRasPtr; 

3 arealnfo:ArealnfoPtr; 

4 gelsInfo:GelsInfoPtr; 

5 maskiUByte; 

6 fgPen:UByte; 

7 bgPenrUByte; 

8 aOlPen:UByte; 

9 drawMode:DrawModeSet; 
io areaPtSz:UByte; 

n ÜnPatCnt :UByte; 

12 dummy:BYTE; 

13 flags:RastPortFlagSet; 

14 ÜnePtrn: CARDINAL; 

15 x: INTEGER; 

16 y:INTEGER; 

17 minterms:ARRAY [ 0 .. 7 ] OF BYTE; 

18 penWidth:INTEGER; 

19 penHeight:INTEGER; 

20 font:TextFontPtr; 

21 algoStyle:FontStyleSet; 

22 txFlags:FontFlagSet; 

23 txHeight:CARDINAL; 

24 txWidth:CARDINAL; 

25 txBaseline:CARDINAL; 

26 txSpacing:INTEGER; 

27 user:ADDRESS; 

28 longreserved:ARRAY [ 0 .. 1 ] OF LONGINT; 

29 wordreserved:ARRAY [ 0 .. 6 ] OF WORD; 

30 reserved:ARRAY [ 0 .. 7 ] OF BYTE; 

31 END; 

32 

33 CONST 

34 jaml=DrawModeSet{}; 

35 jam 2 =DrawModeSet{dmO}; 

36 spriteAttached= 080 H; 

37 normalFont=FontStyleSet{}; 

38 

39 TYPE 

40 RegionRectangle=RECORD 

41 next:RegionRectanglePtr; 

42 prev:RegionRectanglePtr; 

43 bounds:Reetangle; 

44 END; 

45 Region=RECORD 

46 bounds:Reetangle; 

47 regionRectangle:RegionRectanglePtr; 

48 END; 

49 SimpleSprite=RECORD 
so posctldata:ADDRESS; 

5 1 height:CARDINAL; 

52 x .-CARDINAL; 

53 y : CARDINAL; 

54 num: CARD INAL ; 

55 END; 

56 TextAttr=RECORD 

57 name:ADDRESS; 
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1 ySize:CARDINAL; 

2 style:FontStyleSet; 

3 flags:FontFlagSet; 

4 END; 

5 TextFont=RECORD 

6 message:Message; 

7 ySize:CARDINAL; 

8 style:FontStyleSet; 

9 flags:FontFlagSet; 
io xSize:CARDINAL; 

n baseline:CARDINAL; 

12 boldSmear:CARDINAL; 

13 accessors:CARDINAL; 

14 loChar:CHAR; 

15 hiChar:CHAR; 

1 6 charData:ADDRESS; 

17 modulo:CARDINAL; 

18 charLoc:ADDRESS; 

19 charSpace:ADDRESS; 

20 charKern:ADDRESS; 

21 END; 

22 ColorMap=RECORD 

23 flagsrUByte; 

24 type:UByte ; 

25 count:CARDINAL; 

26 colorTable:ADDRESS; 

27 END; 

28 ViewModes=( 

29 vmO,genlocVideo,lace,vm 3 ,vm 4 , vmS,pfba,extraHalfbrite, 

30 genlocAudiO/ ^ 9 , dualpf, ham, VIÜ 12 , vpHide, sprites, hires 

3 1 ) ; 

32 ViewModeSet=SET OF ViewModes; 

33 ViewPort=RECORD 

34 next:ViewPortPtr; 

35 colorMap:ColorMapPtr; 

36 dsplns:CopListPtr; 

37 sprlns:CopListPtr; 

38 clrlns:CopListPtr; 

39 uCopIns:UCopListPtr; 

40 dWidth:INTEGER; 

4 1 dHeight:INTEGER; 

42 dxOf f set: INTEGER; 

43 dyOf f set: INTEGER; 

44 modes:ViewModeSet; 

45 reserved:CARDINAL; 

46 raslnfo:RasInfoPtr; 

47 END; 

48 View=RECORD 

49 viewPort:ViewPortPtr; 
so lofCprList:CprlistPtr; 

51 shfCprList:CprlistPtr; 

52 dyOf f set: INTEGER; 

53 dxOffset:INTEGER; 

54 modes:ViewModeSet; 

55 END; 

56 Raslnfo=RECORD 

57 next:RaslnfoPtr; 
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27 

28 

29 
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31 

32 

33 

34 
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36 

37 
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39 

40 
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49 
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54 
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57 


bitMap:BitMapPtr; 
rxOffset:INTEGER; 
ryOffset:INTEGER; 
END; 


(* 

* Die Prozeduren InitArea, InitBitMap, InitRastPort, 

* InitTmpRas, InitView und InitVPort haben einen 

* VAR Parameter. 

*) 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


AddAnimOb (anOb{ 8 } :AnimObPtr; 

anKey{9}:ADDRESS; 

rp{10}:RastPortPtr); CODE -156; 

AddBob(Bob{8}:BobPtr; 

rp{9}:RastPortPtr); CODE -96; 

AddFont(textFont{9}:TextFontPtr); CODE -480; 
AddVSprite(vs{8}:VSpritePtr; 

rp{9}:RastPortPtr); CODE -102; 
AllocRaster(width{0}:CARDINAL; 

heightfl}rCARDINAL):ADDRESS; CODE -492; 
AndRectRegion(region{8}:RegionPtr; 

rectangle{9}:RectanglePtr); CODE -504 
AndRegionRegion( 
regionl{8}:RegionPtr; 

region2{9}:RegionPtr):BOOLEAN; CODE -624; 

Animate( 

anKey{8}:ADDRESS; rp{9}:RastPortPtr); CODE -162; 
AreaDraw(rp{9}:RastPortPtr; 
x{0}:INTEGER; 

y{1}:INTEGER):LONGINT; CODE -258; 
AreaEllipse(rp{9}:RastPortPtr; 

CX{0}:INTEGER; 
cY{1}:INTEGER; 
a{2}:INTEGER; 

b{3}:INTEGER):LONGINT; CODE -186; 
AreaEnd(rp{9}:RastPortPtr):LONGINT; CODE -264; 
AreaMove(rp{9}:RastPortPtr; 
x{0}:INTEGER; 

y{1}:INTEGER):LONGINT; CODE -252; 

AskFont(rp{9}:RastPortPtr; 

textAttr{8}:TextAttrPtr); CODE -474; 
AskSoftStyle( 

rp{9}:RastPortPtr):FontStyleSet; CODE -84; 
AttemptLockLayerRom( 
layer{13}:LayerPtr):BOOLEAN; CODE -654; 

BltBitMap(srcBitMapi8}:BitMapPtr; 
srcX{0}:INTEGER; 
srcY{1}:INTEGER; 
dstBitMap{9}:BitMapPtr; 
dstX{2}:INTEGER; 
dstY{3}:INTEGER; 
sizeX{4}:INTEGER; 
sizeY{5}:INTEGER; 
minterm{6}:BYTE; 
mask{7}:BYTE; 

tempA{10}:ADDRESS):LONGCARD; CODE -30; 
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l PROCEDURE 

BltBitMapRastPort(srcbm{8}:BitMapPtr; 

2 

srcX{0}:INTEGER; 

3 

srcY{1}:INTEGER; 

4 

destRp{9):RastPortPtr; 

5 

destX{2}:INTEGER; 

6 

destY{3}:INTEGER; 

7 

SizeX{4}:INTEGER; 

8 

sizeY{5}:INTEGER; 

9 

minterm{6}:BYTE); CODE -606; 

io PROCEDURE 

BltClear(memBlock{9):ADDRESS; 

n 

bytecount{0}:LONGCARD; 

12 

flags{1}:LONGCARD); CODE -300; 

13 PROCEDURE 

BltMaskBitMapRastPort( 

14 

srcbm{8}:BitMapPtr; 

15 

srcX{0}:INTEGER; 

16 

srcY{1}:INTEGER; 

17 

destRp{9):RastPortPtr; 

18 

destX{2}:INTEGER; 

19 

destY{3}:INTEGER; 

20 

sizeX{4}:INTEGER; 

21 

sizeY{5):INTEGER; 

22 

minterm{6}:BYTE; 

23 

bltmask{10}:ADDRESS); CODE -636; 

24 PROCEDURE 

BltPattern (rp{9}:RastPortPtr; 

25 

mask{8}:ADDRESS; 

26 

xl(0):INTEGER; 

27 

yl{1}:INTEGER; 

28 

maxX{2}:INTEGER; 

29 

maxY{3}:INTEGER; 

30 

bytecnt{4}:INTEGER); CODE -312; 

31 PROCEDURE 

BltTemplate(srcTemplate{8}:ADDRESS; 

32 

srcX{0):INTEGER; 

33 

srcMod{1}:INTEGER; 

34 

rp{9};RastPortPtr; 

35 

dstX{2}:INTEGER; 

36 

dstY{3}rINTEGER; 

37 

sizeX{4}:INTEGER; 

38 

sizeY{5):INTEGER); CODE -36; 

39 PROCEDURE 

CBump(c{9):UCopListPtr); CODE -366; 

40 PROCEDURE 

ChangeSprite(vp{8):ViewPortPtr; 

41 

s{9}:SimpleSpritePtr; 

42 

newdata{10):ADDRESS); CODE -420; 

43 PROCEDURE 

ClearEOL(rp{9):RastPortPtr); CODE -42; 

44 PROCEDURE 

ClearRectRegion( 

45 

regior>{8} :RegionPtr; 

46 

rectangle{9}:RectanglePtr):LONGINT; CODE -522 

47 PROCEDURE 

ClearRegion(region{8}rRegionPtr); CODE -528; 

48 PROCEDURE 

ClearScreen(rp{9}:RastPortPtr); CODE -48; 

49 PROCEDURE 

ClipBlit(src{8):RastPortPtr; 

50 

srcX{0):INTEGER; 

51 

srcY{1}:INTEGER; 

52 

dest{9}:RastPortPtr; 

53 

destX{2}:INTEGER; 

54 

destY{3}:INTEGER; 

55 

xSize{4):INTEGER; 

56 

ySize{5):INTEGER; 

57 

minterm{6):BYTE); CODE -552; 
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PROCEDURE 

PROCEDURE 


PROCEDURE 

PROCEDURE 


9 PROCEDURE 

10 PROCEDURE 

11 PROCEDURE 

12 PROCEDURE 

13 

14 

15 PROCEDURE 

16 

17 

18 

19 

20 PROCEDURE 

21 

22 PROCEDURE 

23 

24 

25 

26 PROCEDURE 

27 PROCEDURE 

28 PROCEDURE 

29 PROCEDURE 

30 

31 

32 PROCEDURE 

33 

34 

35 PROCEDURE 

36 PROCEDURE 

37 PROCEDURE 

38 

39 PROCEDURE 

40 

41 

42 PROCEDURE 

43 

PROCEDURE 


44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 PROCEDURE 

56 

57 


(★PRIVATE* 

(★PRIVATE* 

PROCEDURE 


PROCEDURE 


CloseFont(font{9}:TextFontPtr); CODE -78/ 

CMove(c{9}:UCopListPtr; 
a{0}:ADDRESS; 
v{l}:INTEGER); CODE -372; 

CopySBitMap(layer{8}:LayerPtr); CODE -450; 

CWait(c{9}:UCopListPtr; 
v{0}:INTEGER; 
h{1}:INTEGER); CODE -378; 

DisownBlitter(); CODE -462; 

DisposeRegion(region{8}:RegionPtr); CODE -534; 
DoCollision(rp{9}:RastPortPtr); CODE -108; 

Draw(rp{9}:RastPortPtr; 
x{0}:INTEGER; 
y{l}:INTEGER); CODE -246; 

DrawEllipse(rp{9}:RastPortPtr; 

CX{0}:INTEGER; 

cY{1}:INTEGER; 

a{2}:INTEGER; 

b{3}:INTEGER); CODE -180; 

DrawGList(rp{9}:RastPortPtr; 

vp{8}:ViewPortPtr); CODE -114; 

Flood(rp{9}:RastPortPtr; 
mode{2}:LONGCARD; 
x{0}:INTEGER; 

y{1}:INTEGER):LONGINT; CODE -330; 

FreeColorMap(colorMap{8}:ColorMapPtr); CODE -576; 
FreeCopList(coplist{8}:CopListPtr); CODE -546; 
FreeCprList(cprlist{8}:CprlistPtr); CODE -564; 
FreeGBuffers(anOb{8}:AnimObPtr; 

rp{9 } :RastPortPtr; 

db{0}:BOOLEAN); CODE -600; 

FreeRaster(p{8 >:ADDRESS; 

width{0}:CARDINAL; 
height{1}:CARDINAL); CODE -498; 
FreeSprite(pick{0}:INTEGER); CODE -414; 
FreeVPortCopLists(vp{8):ViewPortPtr); CODE -540; 
GetColorMap( 

entries{0}:LONGINT):ColorMapPtr; CODE -570; 

GetGBuffers(anOb{8}:AnimObPtr; 

rp{9}:RastPortPtr; 

db{0}:BOOLEAN):BOOLEAN; CODE -168; 
GetRGB4(colorMap{8}:ColorMapPtr; 

entry{0}:LONGINT):LONGCARD; CODE -582; 
GetSprite(Sprite{8}:SimpleSpritePtr; 

pick{0}:INTEGER):INTEGER; CODE -408; 

) PROCEDURE GraphicsReservedl():LONGINT; CODE -642; 
) PROCEDURE GraphicsReserved2():LONGINT; CODE -648; 
InitArea(VAR areainfo{8}:Areainfo; 
buffer{9}:ADDRESS; 
maxvectors{0}:INTEGER); CODE -282; 
InitBitMap(VAR bm{8}:BitMap; 

depth{0}:INTEGER; 
width{1}:INTEGER; 
height{2}:INTEGER); CODE -390; 

InitGels(head{8}:VSpritePtr; 

tail{9}:VSpritePtr; 

glnfo{10}:GelslnfoPtr); CODE -120; 
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1 PROCEDURE 

2 PROCEDURE 

3 PROCEDURE 

4 PROCEDURE 

5 

6 

7 PROCEDURE 

8 PROCEDURE 

9 PROCEDURE 
io 

n 

12 PROCEDURE 

13 PROCEDURE 

14 PROCEDURE 

15 

16 PROCEDURE 

17 

18 

19 PROCEDURE 

20 
21 
22 

23 PROCEDURE 

24 PROCEDURE 

25 PROCEDURE 

26 

27 PROCEDURE 

28 

29 

30 PROCEDURE 

31 

32 

33 PROCEDURE 

34 PROCEDURE 

35 

36 

37 PROCEDURE 

38 PROCEDURE 

39 PROCEDURE 

40 

41 

42 PROCEDURE 

43 

44 

45 

46 

47 PROCEDURE 

48 PROCEDURE 

49 

50 

51 PROCEDURE 

52 PROCEDURE 

53 

54 


55 


56 


57 


InitGMasks(anOb{8}rAnimObPtr); CODE -174; 
InitMasks(vs{8)rVSpritePtr); CODE -126; 
InitRastPort(VAR rp{9}rRastPort); CODE -198; 
InitTmpRas(VAR tmpras{8}:TmpRas; 

buffer{9}:ADDRESS; 

size{0}rLONGINT); CODE -468; 

InitView(VAR view{9}:View); CODE -360; 

InitVPort(VAR vp{8}:ViewPort); CODE -204; 
LoadRGB4(vp{8):ViewPortPtr; 

colors{9}:ADDRESS; 

count{0}:INTEGER); CODE -192; 

LoadView(view{9}:ViewPtr); CODE -222; 
LockLayerRom(layer{13}:LayerPtr); CODE -432; 
MakeVPort(view{8}rViewPtr; 

viewport{9}:ViewPortPtr); CODE -216; 
Move(rp{9}rRastPortPtr; 
x{0}rINTEGER; 
y{l}:INTEGER); CODE -240; 

MoveSprite(vp{8}:ViewPortPtr; 

sprite{9}:SimpleSpritePtr; 

x{0}rINTEGER; 

y{l}rINTEGER); CODE -426; 

MrgCop(view{9}rViewPtr); CODE -210; 

NewRegion()rRegionPtr; CODE -516; 

OpenFont( 

textAttr{8}rTextAttrPtr)rTextFontPtr; CODE -72 
OrRectRegion( 
region{8}r RegionPtr; 

rectangle{9}rRectanglePtr)rLONGINT; CODE -510; 
OrRegionRegion( 
regionl{8}rRegionPtr; 

region2{9}rRegionPtr) rLONGINT; CODE -612; 
OwnBlitter(); CODE -456; 

PolyDraw(rp{9}rRastPortPtr; 

count{0}rINTEGER; 

array{8}rADDRESS); CODE -336; 

QBlit(bp{9}rbltnodePtr); CODE -276; 

QBSBlit(bsp{9}rbltnodePtr); CODE -294; 

ReadPixel(rp{9}rRastPortPtr; 
x{0}rINTEGER; 

y{1}rINTEGER)rLONGINT; CODE -318; 
RectFill(rp{9}rRastPortPtr; 

xMin{0}rINTEGER; 
yMin{1}rINTEGER; 
xMax{2}rINTEGER; 
yMax{3}rINTEGER); CODE -306; 

RemFont(textFont{9}rTextFontPtr); CODE -486; 
RemlBob(bob{8}r BobPtr; 

rp{9}rRastPortPtr; 
vp{10}rViewPortPtr); CODE -132; 
RemVSprite(vs{8}rVSpritePtr); CODE -138; 
ScrollRaster(rp{9}rRastPortPtr; 

dx{0}rINTEGER; 
dy{1}rINTEGER; 
xMin{2}rINTEGER; 
yMin{3}rINTEGER; 
xMax{4}rINTEGER; 
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22 
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26 

27 

28 

29 
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31 

32 

33 

34 

35 

36 

37 

38 
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PROCEDURE 

PROCEDÜRE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 

PROCEDURE 

PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


PROCEDURE 


PROCEDURE 


yMax{5}:INTEGER); CODE -396; 
ScrollVPort(vp{8}:ViewPortPtr); CODE -588; 
SetAPen(rp{9}:RastPortPtr; 

pen{0}:CARDINAL); CODE -342; 

SetBPen(rp{9}:RastPortPtr; 

pen{0}:CARDINAL); CODE -348; 

SetCollision(num{0}:LONGCARD; 

routine{8}:PROC; 

gInfo{9}:GelsInfoPtr); CODE -144; 
SetDrMd(rp{9}:RastPortPtr; 

mode{0}:DrawModeSet); CODE -354; 

SetFont(rp{9):RastPortPtr; 

font{8}:TextFontPtr); CODE -66; 

SetRast(rp{9}:RastPortPtr; 

pen{0}:CARDINAL); CODE -234; 

SetRGB4(vp{8}:ViewPortPtr; 
n{0}:CARDINAL; 
r{1}:CARDINAL; 
g{2}:CARDINAL; 
b{3}:CARDINAL); CODE -288; 

SetRGB4CM(cm{8}:ColorMapPtr; 
n{0}:CARDINAL; 
r{1}:CARDINAL; 
g{2}:CARDINAL; 
b{3}:CARDINAL); CODE -630; 

SetSoftStyle( 
rp{9}:RastPortPtr; 
style{0}:FontStyleSet; 

enable{1}:FontStyleSet):FontStyleSet; CODE -90; 
SortGList(rp{9}:RastPortPtr); CODE -150; 
SyncSBitMap(layer{8}:LayerPtr); CODE -444; 

Text(rp{9}:RastPortPtr; 
string{8}:ADDRESS; 
count{0}:INTEGER); CODE -60; 

TextLength(rp{9}:RastPortPtr; 

string{8}:ADDRESS; 

count{0}:INTEGER):INTEGER; CODE -54; 
UCopperListInit(copperList{8}:UCopListPtr; 

num{0}:LONGINT); CODE -594; 

UnlockLayerRom(layer{13}:LayerPtr); CODE -438; 
VBeamPos():LONGINT; CODE -384; 

WaitBlit(); CODE -228; 

WaitBOVP(vp{8}:ViewPortPtr); CODE -402; 
WaitTOFO; CODE -270; 

WritePixel(rp{9}:RastPortPtr; 
x{0}:INTEGER; 

y{l} : INTEGER) .-LONGINT; CODE -324; 
XorRectRegion( 
region{8}:RegionPtr; 

rectangle{9}:RectanglePtr):LONGINT; CODE -558; 
XorRegionRegion( 
regionl{8}:RegionPtr; 

region2 { 9} :RegionPtr) .-LONGINT; CODE -618; 


END Graphics. 
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5 1 

6 DEFINITION MODULE Hardware; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS,BITSET; 

10 

11 TYPE 

12 Byte=[-128..127] ; 

13 UByte= [0 . .255] ; 

14 

15 TYPE 

16 AdkFlags= ( 

17 useOvl, uselv2,use2v3,use3vn,useOpl,uselp2,use2p3,use3pn, 

18 fast,msbSync,wordSync,uartBrk,mfmPrec,preCompO, preCompl, 

19 adkSet ( 

20 ) ; 

21 AdkFlagSet=SET OF AdkFlags; 

22 

23 CONST 

24 pre000ns=AdkFlagSet {}; 

25 prel40ns=AdkFlagSet {preCompO}; 

26 pre28Ons=AdkFlagSet{preCompl}; 

27 pre560ns=AdkFlagSet{preCompO,preCompl}; 

28 

29 TYPE 

30 DmaFlags= ( 

31 audO,audl,aud2,aud3,disk,sprite,blitter,copper, 

32 raster, master,blithog,df11,df12,bltnzero,bltdone,dmaSet 

33 ) ; 

34 DmaFlagSet=SET OF DmaFlags; 

35 

36 CONST 

37 dmaAll=DmaFlagSet {audO. . raster}; 

38 

39 TYPE . 

40 IntFlags= ( \ 

41 tbe, dskblk,softint,ports,coper,vertb,blit,audOi, 

42 audli,aud2i,aud3i,rbf,disksync,exter,inten,intSet 

43 ) ; 

44 IntFlagSet=SET OF IntFlags; 

45 

46 CONST 

47 hSizeBits=6; 

48 vSizeBits=16-hSizeBits; 

49 hSizeMask=03FH; 
so vSizeMask=03FFH; 

51 maxBytesPerRow=128; 

52 

53 TYPE 

54 BC0Flags= ( ( 

55 nanbnc,nanbc,nabnc,nabc,anbnc,anbc,abnc,abc, 

56 dest,srcC,srcB,srcA,ashl,ash2,ash4,ash8 

57 ) ; 
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1 BCOFlagSet=SET OF BCOFlags; 

2 

3 CONST 

4 aORb=BCOFlagSet{abc,anbc,nabc,abnc,anbne,nabnc}; 

5 aORc=BCOFlagSet{abc,nabe,abnc,anbc,nanbc,anbne}; 

6 aXORc=BCOFlagSet{nabe,abnc,nanbe,anbne}; 

7 aTOd=BCOFlagSet{abc,anbe,abnc,anbne}; 

8 

9 TYPE 

io BClFlags=( 

n lineMode,desc,fillCarryln,fillOr,fillXor,ovFlag,signFlag, 

12 bf7,bf8,bf9,bfl0,bfll,bshl,bsh2,bsh4,bsh8 

13 ) ; 

14 BClFlagSet=SET OF BCIFlags; 

15 CONST 

16 oneDot=desc; 

17 blitReverse=desc; 

18 aul=BClFlagSet{fillCarryln}; 

19 sul=BClFlagSet{fillOr}; 

20 sud=BClFlagSet{fillXor}; 

21 octantl=sud; 

22 octant2=BClFlagSet{}; 

23 octant3=sul; 

24 octant4=aul+sud; 

25 octant5=aul+sul+sud; 

26 octant6=aul+sul; 

27 octant7=aul; 

28 octant8=sul+sud; 

29 

30 TYPE 

31 BltnodePtr=POINTER TO Bltnode; 

32 Bltnode=RECORD 

33 n:BltnodePtr; 

34 function:ADDRESS; 

35 stat:CHAR; 

36 blitsize:INTEGER; 

37 beamsync:INTEGER; 

38 cleanup:ADDRESS; 

39 END; 

40 

41 CONST 

42 cleanup=40H; 

43 cleanme=cleanup; 

44 

45 TYPE 

46 Coord=RECORD 

47 v,h:Byte; 

48 END; 

49 Custom=RECORD 

50 bltddat:CARDINAL; 

51 dmaconr:DmaFlagSet; 

52 vposr:LONGCARD; 

53 dskdatr:CARDINAL; 

54 joyOdat:Coord; 

55 joyldat:Coord; 

56 clxdat:CARDINAL; 

57 adkconr:BITSET; 
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1 potOdat:CARDINAL; 

2 potldat:CARDINAL; 

3 potinp: CARDINAL; 

4 serdatr:CARDINAL; 
s dskbytr:CARDINAL; 

6 intenar:BITSET; 

7 intreqr:CARDINAL; 

8 dskpt:ADDRESS; 

9 dsklen:CARDINAL; 

10 dskdat:CARDINAL; 

11 refptr:CARDINAL; 

12 vposw: CARDINAL; 

13 vhposw: CARDINAL; 

14 copcon:BITSET; 

15 serdat:CARDINAL; 

16 serper:CARDINAL; 

17 potgo:CARDINAL; 

18 joytest:CARDINAL; 

19 strequ:CARDINAL; 

20 strvbl:CARDINAL; 

21 strhor:CARDINAL; 

22 strlong:CARDINAL; 

23 bltconO rBITSET; 

24 bltconl:BITSET; 

25 bltafwm:CARDINAL; 

26 bltalwm:CARDINAL; 

27 bltcpt:ADDRESS; 

28 bltbpt:ADDRESS; 

29 bltapt:ADDRESS; 

30 bltdpt:ADDRESS; 

31 bltsize:CARDINAL; 

32 pad2d:ARRAY [0..2] OF CARDINAL; 

33 bltcmod:CARDINAL; 

34 bltbmod:CARDINAL; 

35 bltamod: CARDINAL; 

36 bltdmod:CARDINAL; 

37 pad34:ARRAY [0..3] OF CARDINAL; 

38 bltcdat:CARDINAL; 

39 bltbdat:CARDINAL; 

40 bltadat:CARDINAL; 

41 pad3b:ARRAY [0..3] OF CARDINAL; 

42 dsksync:CARDINAL; 

43 copllc:LONGCARD; 

44 cop21c:LONGCARD; 

45 cop jmpl: CARDINAL; 

46 copjmp2:CARDINAL; 

47 copins:CARDINAL; 

48 diwstrt:CARDINAL; 

49 diwstop:CARDINAL; 
so ddfstrt:CARDINAL; 

51 ddfstOp:CARDINAL; 

52 dmacon:BITSET; 

53 clxcon:CARDINAL; 

54 intena:BITSET; 

55 intreq: CARDINAL ; 

56 adkcon:BITSET; 

57 aud:ARRAY [0..3] OF RECORD 
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1 acptr:ADDRESS; 

2 aclen:CARDINAL ; 

3 acper:CARDINAL; 

4 acvol:CARDINAL; 

5 acdat:CARDINAL; 

6 acpad:ARRAY [0..1] OF CARDINAL; 

7 END; 

8 bplpt:ARRAY [0 . .5] OF ADDRESS; 

9 pad7c:ARRAY [0..3] OF CARDINAL; 

10 bplconO:CARDINAL; 

n bpicon1:CARDINAL; 

12 bpicon2:CARDINAL; 

13 pad83:CARDINAL; 

14 bpilmod:CARDINAL; 

15 bpi 2mod: CARDINAL ; 

16 pad86:ARRAY [0..1] OF CARDINAL; 

17 bpldat: ARRAY [0..5] OF CARDINAL; 

18 pad8e:ARRAY [0..1] OF CARDINAL; 

19 sprpt:ARRAY [0..7] OF ADDRESS; 

20 spr:ARRAY [0 . . 7] OF RECORD 

21 pos:CARDINAL; 

22 ctl: CARDINAL; 

23 dataa:CARDINAL; 

24 dat ab: CARDINAL ; 

25 END; 

26 color:ARRAY [0..31] OF CARDINAL; 

27 END; 

28 

29 VAR 

30 custom[0DFF000H]:Custom; 

31 

32 TYPE 

33 CiaIcrFlags=(ta,tb,alrm,sp,flg,if5,if6,setclr); 

34 CiaIcrFlagSet=SET OF CialcrFlags; 

35 CONST 

36 ir=setclr; (* On read setclr has the meaning of ir *) 

37 TYPE 

38 CiaCraFlags=( 

39 craStart,craPbon,craOutmode,craRunmode,craLoad,cralnmode, 

40 craSpmode,craTodin 

41 ); 

42 CiaCraFlagSet=SET OF CiaCraFlags; 

43 CiaCrbFlags= ( 

44 erbstart,crbPbon,crbOutmode,crbRunmode,crbLoad,crblnmodeO, 

45 crblnmodel,crbAlarm 

46 ) ; 

47 CiaCrbFlagSet=SET OF CiaCrbFlags; 

48 CiaaPraFlags=( 

49 overlay,led,dskChange,dskProt,dskTrackO,dskRdy,gamePortO, 
so gamePortl 

51 ) ; 

52 CiaaPraFlagSet=SET OF CiaaPraFlags; 

53 CiaaPrbFlags=[0..7]; (* Parallel port *) 

54 CiaaPrbFlagSet=SET OF CiaaPrbFlags; 

55 CiabPraFlags= ( 

56 prtrBusy^prtrPOut/prtrSel,comDSR,comCTS,comCD,comRTS,comDTR 

57 ) ; 
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1 CiabPraFlagSet=SET OF CiabPraFlags; 

2 CiabPrbFlags=( 

3 dskStep,dskDirec,dskSide,dskSelO,dskSell,dskSel2,dskSel3, 

4 dskMotor 

5 ) ; 

6 CiabPrbFlagSet=SET OF CiabPrbFlags; 

7 

8 TYPE 

9 ShortSet=SET OF [0..7]; 

10 Pad=ARRAY [0..253] OF ShortSet; 

11 CI AA=RECORD 

12 pra:CiaaPraFlagSet; padO:Pad; 

13 prb:CiaaPrbFlagSet; padl:Pad; 

14 ddra:CiaaPraFlagSet; pad2:Pad; 

15 ddrb:CiaaPrbFlagSet; pad3:Pad; 

16 talo:UByte; pad4:Pad; 

17 tahi:UByte; pad5:Pad; 

18 tblo:UByte; pad6:Pad; 

19 tbhi:UByte; pad7:Pad; 

20 todlow:UByte; pad8:Pad; 

21 todmid:UByte; pad9:Pad; 

22 todhi:UByte; padlO:Pad; 

23 unusedreg:ShortSet; padll:Pad; 

24 sdr:ShortSet; padl2:Pad; 

25 icr:CialcrFlagSet; padl3:Pad; 

26 cra:CiaCraFlagSet; padl4:Pad; 

27 erb:CiaCrbFlagSet; 

28 END; 

29 CIAB=RECORD 

30 pra:CiabPraFlagSet; pad0:Pad; 

31 prb:CiabPrbFlagSet; padl:Pad; 

32 ddra:CiabPraFlagSet; pad2:Pad; 

33 ddrb:CiabPrbFlagSet; pad3:Pad; 

34 talo:UByte; pad4:Pad; 

35 tahi:UByte; pad5:Pad; 

36 tblo:UByte; pad6:Pad; 

37 tbhi:UByte; pad7:Pad; 

38 todlow:UByte; pad8:Pad; 

39 todmid:UByte; pad9:Pad; 

40 todhi:UByte; padl0:Pad; 

4 1 unusedreg:ShortSet; padll:Pad; 

42 sdr:ShortSet; padl2:Pad; 

43 icr:CialcrFlagSet; padl3:Pad; 

44 cra:CiaCraFlagSet; padl4:Pad; 

45 erb:CiaCrbFlagSet; 

46 END; 

47 

48 VAR 

49 ciaa[0BFE001H]:CIAA; 
so ciab[0BFD000H]:CIAB; 

51 

52 END Hardware. 

53 
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5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 


DEFINITION MODULE Icon {"icon.library",33}; 

FROM SYSTEM IMPORT 
ADDRESS; 

FROM Workbench IMPORT 
FreeListPtr,DiskObjectPtr; 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 
END Icon. 


BumpRevision(new{8},old{9}:ADDRESS); CODE -108; 

AddFreeList(free{8}:FreeListPtr; mem{9}:ADDRESS; 

len{10}:LONGINT):LONGINT; CODE -72; 
FreeFreeList(free{8}:FreeListPtr); CODE -54; 

FindToolType( 
toolTypes{8}, 

typeName{9}:ADDRESS):ADDRESS; CODE -96; 
MatchToolValue( 

typeString{8},val{9}:ADDRESS):LONGINT; CODE -102; 

AllocWBObject():ADDRESS; CODE -66; 

GetWBObject(name{8}:ADDRESS):ADDRESS; CODE -30; 
PutWBObject(name{8}:ADDRESS; 

obj{9}:ADDRESS):LONGINT; CODE -36; 
FreeWBObject(obj{8}:ADDRESS); CODE -60; 

Getlcon(name{8}:ADDRESS; icon{9}:DiskObjectPtr; 

f{10}:FreeListPtr):LONGINT; CODE -42; 
Puticon(name{8}:ADDRESS; 

obj{9}:DiskObjectPtr):LONGINT; CODE -48; 

GetDiskObject ( 

name{8}:ADDRESS):DiskObjectPtr; CODE -78; 
PutDiskObject( 
name{8}:ADDRE SS; 

obj{9}:DiskObjectPtr):LONGINT; CODE -84; 
FreeDiskObject(obj{8}:DiskObjectPtr); CODE -90; 
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5 (* $M- *) 

6 DEFINITION MODULE Input; 

7 

8 FROM Exec IMPORT 

9 nonstd; 

10 

11 CONST 

12 inputName=="input .device" / 

13 addHandler=nonstd+ 0 ; 

14 remHandler=nonstd+l; 

15 writeEvent=nonstd+ 2 ; 

1 6 setThresh=nonstd+ 3 ; 

17 setPeriod=nonstd+ 4 ; 

18 setMPort=nonstd+ 5 ; 

19 setMType=nonstd+ 6 ; 

20 setMTrig=nonstd+ 7 ; 

21 

22 END Input. 

23 
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5 (*$M-*) 

e DEFINITION MODULE InputEvent; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS; 

10 FROM Timer IMPORT 

11 Time Val; 

12 

13 TYPE 

14 Class=( 

15 null,rawkey,rawmouse,event,pointerpos,cl5,timer,gadgetdown, 

16 gadgetup,requester,menulist,closewindow,sizewindow, 

17 refreshwindow,newprefs,diskremoved,diskinserted, 

18 activewindow,inactivewindow 

19 ) ; 

20 

21 CONST 

22 classMax=ORD(MAX(Class) ); 

23 upPrefix=080H; 

24 keyCodeFirst=00H; 

25 keyCodeLast=077H; 

26 commCodeFirst=078H; 

27 commCodeLast=07FH; 

28 c0First=00H; 

29 c0Last=01FH; 

30 asciiFirst=020H; 

31 asciiLast=07EH; 

32 asciiDel=07FH; 

33 clFirst=080H; 

34 clLast=09FH; 

35 latinlFirst=OAOH; 

36 latinlLast=OFFH; 

37 lButton=068H; 

38 rButton=069H; 

39 mButton=06AH; 

40 noButton=0FFH; 

41 newActive=01H; 

42 reqClear=00H; 

43 reqSet=01H; 

44 

45 TYPE 

46 Qualifiers=( 

47 lShift,rShift,capsLock,control,lAlt,rAlt,ICommand,rCommand, 

48 numericPad,repeat,interrupt,multiBroadcast,midButton, 

49 rightButton,leftButton,relativeMouse 
so ) ; 

51 QualifierSet=SET OF Qualifiers; 

52 InputEventPtr=POINTER TO InputEvent; 

53 InputEvent=RECORD 

54 nextEvent:InputEventPtr; 

55 class :Class; 

56 subClass:Class; 

57 code:CARDINAL; 
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1 qualifier:QualifierSet; 

2 CASE :INTEGER OF 

3 |0: x,y:INTEGER; 

4 |1: eventAddress:ADDRESS 

5 END; 

6 timeStamp:TimeVal 

7 END; 

8 

9 END InputEvent. 
io 
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5 DEFINITION MODULE Intuition {"intuition.library",33}; 

6 

7 FROM SYSTEM IMPORT 

8 ADDRESS,BITSET,BYTE,CAST,LONGSET; 

9 FROM Exec IMPORT 

io Byte,Interrupt,IOStdReq,Library,List,MemReqSet,Message, 
n MsgPortPtr,SignalSemaphore,UByte; 

12 FROM Graphics IMPORT 

13 jam2,BitMap,BitMapPtr,ClipRect,DrawModeSet,GfxBasePtr, 

14 Layerlnfo,LayerPtr, RastPort,RastPortPtr,RegionPtr, 

15 SimpleSpritePtr,TextAttr,TextAttrPtr,TextFontPtr,TmpRas, 

16 View, ViewModeSet, ViewPort, ViewPortPtr, ViewPtr; 

17 FROM Timer IMPORT 

18 TimeRequest,TimeVal; 

19 FROM InputEvent IMPORT 

20 IButton,rButton,upPrefix,InputEvent,InputEventPtr, 

21 Qualifiers,QualifierSet; 

22 FROM KeyMap IMPORT 

23 KeyMapPtr; 

24 

25 TYPE 

26 BorderPtr=POINTER TO Border; 

27 GadgetPtr=POINTER TO Gadget; 

28 ImagePtr=POINTER TO Image; 

29 IntuiMessagePtr=POINTER TO IntuiMessage; 

30 IntuiTextPtr=POINTER TO IntuiText; 

31 MenuItemPtr=POINTER TO Menuitem; 

32 MenuPtr=POINTER TO Menu; 

33 PreferencesPtr=POINTER TO Preferences; 

34 PropInfoPtr=POINTER TO Proplnfo; 

35 RememberPtr=POINTER TO Remember; 

36 RequesterPtr=POINTER TO Requester; 

37 ScreenPtr=POINTER TO Screen; 

38 StringInfoPtr=POINTER TO Stringinfo; 

39 WindowPtr=POINTER TO Window; 

40 

41 CONST 

42 menuEnabled=0; 

43 miDrawn=8; 

44 

45 TYPE 

46 Menu=RECORD 

47 nextMenu:MenuPtr; 

48 leftEdge:INTEGER; 

49 topEdge:INTEGER; 
so width:INTEGER; 

51 height:INTEGER; 

52 f lags :BITSET; 

53 menuName:ADDRESS; 

54 firstltemiMenuItemPtr; 

55 jazzX:INTEGER; 

56 jazzY:INTEGER; 

57 beatX:INTEGER; 
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1 beatY:INTEGER; 

2 END; 

3 MenuItemFlags=( 

4 checklt,itemText,commSeq/menuToggle,itemEnabled/mif5, 

5 highComp,highBox,checked,mif9,mif10,mifll,isDrawn, 

6 highItem,menuToggled 

7 ) ; 

8 MenuItemFlagSet=SET OF MenuItemFlags; 

9 

io CONST 

n highNone=MenuItemFlagSet{highBox,highComp}; 

12 checkWidth=19; 

13 commWidth=27; 

14 lowCheckWidth=13; 

15 lowCommWidth=16; 

16 

17 TYPE 

18 MenuItem=RECORD 

19 nextItem:MenuItemPtr; 

20 leftEdge:INTEGER; 

21 topEdge: INTEGER; 

22 width:INTEGER; 

23 height:INTEGER; 

24 flags:MenuItemFlagSet; 

25 mutualExclude:LONGSET; 

26 itemFill:ADDRESS; 

27 selectFill:ADDRESS; 

28 command: CHAR; 

29 subltemrMenuItemPtr; 

30 nextSelect:CARDINAL; 

31 END; 

32 RequesterFlags=( 

33 pointRel/preDrawn,noisyReq f rf3,rf4,rf5,rf 6,rfl, rfrf 9, 

34 rf10,rf11,reqOffWindow,reqActive,sysRequest,deferRefresh 

35 ) ; 

36 RequesterFlagSet=SET OF RequesterFlags; 

37 Requester=RECORD 

38 olderRequest:RequesterPtr; 

39 leftEdge:INTEGER; 

40 topEdge:INTEGER; 

41 width: INTEGER; 

42 height: INTEGER; 

43 relLeft:INTEGER; 

44 relTop:INTEGER; 

45 reqGadget:GadgetPtr; 

46 reqBorder:BorderPtr; 

47 reqText:IntuiTextPtr; 

48 flags:RequesterFlagSet; 

49 backFill:UByte; 

so reqLayer:LayerPtr; 

51 reqPadl:ARRAY [0..31] OF BYTE; 

52 imageBMap:BitMapPtr; 

53 rWindow:WindowPtr; 

54 reqPad2:ARRAY [0..35] OF BYTE; 

55 END; 

56 GadgetFlags=( 

57 gadgHBox, gadgHImage,gadglmage,gRelBottom,gRelRight, 
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1 gRelWidth,gRelHeight,selected,gadgDisabled 

2 ); 

3 GadgetFlagSet=SET OF GadgetFlags; 

4 ActivationFlags=( 

5 relVerify,gadglmmediate,endGadget,followMouse,rightBorder, 

6 leftBorder,topBorder,bottomBorder,toggleSelect,stringCenter, 

7 stringRight,longint,altKeyMap,boolExtend 

s ) ; 

9 ActivationFlagSet=SET OF ActivationFlags; 

10 

11 CONST 

12 gadgHighbits=CAST(GadgetFlagSet,03H); 

13 gadgHNone=GadgetFlagSet{gadgHBox,gadgHImage}; 

14 boolGadget=0001H; 

15 gadget0002=0002H; 

16 propGadget=0003H; 

17 strGadget=0004H; 

18 sizing=0010H; 

19 wDragging=0020H; 

20 sDragging=0030H; 

21 wüpFront=0040H; 

22 süpFront=0050H; 

23 wDownBack=0060H; 

24 sDownBack=0070H; 

25 close=0080H; 

26 reqGadget=1000H; 

27 gzzGadget=2000H; 

28 scrGadget=4000H; 

29 sysGadget=8000H; 

30 gadgetType=CAST(BITSET,0FC00H); 

31 

32 TYPE 

33 Gadget=RECORD 

34 nextGadget:GadgetPtr; 

35 leftEdge:INTEGER; 

36 topEdge:INTEGER; 

37 width:INTEGER; 

38 height:INTEGER; 

39 flags:GadgetFlagSet; 

40 activation:ActivationFlagSet; 

41 gadgetType:CARDINAL; 

42 gadgetRender:ADDRESS; 

43 selectRender:ADDRESS; 

44 gadgetText:IntuiTextPtr; 

45 mutualExclude:LONGSET; 

46 speciallnfo:ADDRESS; 

47 gadgetID:INTEGER; 

48 userData:ADDRESS; 

4 9 END; 

50 

51 CONST 

52 boolMask=l; 

53 

54 TYPE 

55 Boollnfo=RECORD 

56 flags:BITSET; 

57 mask:ADDRESS; 
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1 reserved:LONGCARD; 

2 END; 

3 PropInfoFlags=( 

4 autoKnob/ freeHoriz, freeVert,propBorderless / pf4 / pf5 / pf 6,pf7, 

5 knobHit 

e ) ; 

7 PropInfoFlagSet=SET OF ProplnfoFlags; 

8 

9 CONST 

io knobVmin=4; 
n knobHmin=6; 

12 maxBody=0FFFFH; 

13 maxPot=0FFFFH; 

14 

15 TYPE 

16 PropInfo=RECORD 

17 flags:PropInfoFlagSet; 

18 horizPot:CARDINAL; 

19 vertPot:CARDINAL; 

20 hörizBody:CARDINAL; 

21 vertBody:CARDINAL; 

22 cWidth:CARDINAL; 

23 cHeight: CARDINAL; 

24 hPotRes:CARDINAL; 

25 vPotRes: CARDINAL; 

26 leftBorder:CARDINAL; 

27 topBorder:CARDINAL; 

28 END; 

29 

30 StringInfo=RECORD 

31 buf f er: ADDRESS; 

32 undoBuffer:ADDRESS; 

33 bufferPos:INTEGER; 

34 maxChars:INTEGER; 

35 dispPos:INTEGER; 

36 undoPos:INTEGER; 

37 numChars:INTEGER; 

38 dispCount:INTEGER; 

39 cLeft:INTEGER; 

40 cTop: INTEGER; 

41 layerPtr:LayerPtr; 

42 longlnt:LONGINT; 

43 altKeyMap:KeyMapPtr; 

44 END; 

45 

46 CONST 

47 autoFrontPen=0; 

48 autoBackPen=l; 

49 autoDrawMode=jam2; 
so autoLeftEdge=6; 

51 autoTopEdge=3; 

52 autoITextFont=NIL; 

53 autoNextText=NIL; 

54 TYPE 

55 IntuiText=RECORD 

56 frontPen:UByte; 

57 backPen:UByte; 
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1 drawMode:DrawModeSet; 

2 leftEdge:INTEGER; 

3 topEdge:INTEGER; 

4 iTextFont:TextAttrPtr; 

5 iText:ADDRESS; 

6 nextText:IntuiTextPtr; 

7 END; 

8 

9 Border=RECORD 
io leftEdge:INTEGER; 
n topEdge:INTEGER; 

12 frontPen:UByte; 

13 backPen:UByte; 

14 drawMode:DrawModeSet; 

15 count:UByte; 

16 xy:ADDRESS; 

17 nextBorder:BorderPtr; 

18 END; 

19 

20 Image=RECORD 

21 leftEdge:INTEGER; 

22 topEdge:INTEGER; 

23 width:INTEGER; 

24 height:INTEGER; 

25 depth:INTEGER; 

26 imageData:ADDRESS; 

27 planePick:UByte; 

28 planeOnOff:UByte; 

29 nextImage:ImagePtr; 

30 END; 

31 

32 IDCMPFlags=( 

33 sizeVerify,newSize,refreshWindow,mouseButtons,mouseMove, 

34 gadgetDown,gadgetUp,reqSet,menuPick,closeWindow,rawKey, 

35 reqVerify,reqClear,menuVerify , newPrefs,disklnserted, 

36 diskRemoved,wbenchMessage,activeWindow,inactiveWindow, 

37 deltaMove,vanillaKey, intuiTicks,c23,c24,c25,c26,c27,c28, 

38 c29/c30,lonelyMessage 

39 ) ; 

40 IDCMPFlagSet=SET OF IDCMPFlags; 

41 

42 CONST 

43 selectüp=lButton+upPrefix; (* mouseButtons *) 

44 selectDown=lButton; 

45 menuüp=rButton+upPrefix; 

46 menuDown=rButton; 

47 menuNull=OFFFFH; (* menuPick *) 

48 noMenu=lFH; noItem=3FH; noSub=lFH; 

49 keyCodeQ=10H; (* rawKey *) 

so keyCodeX=32H; 

51 keyCodeV=34H; 

52 keyCodeB=35H; 

53 keyCodeN=36H; 

54 keyCodeM=37H; 

55 cursorüp=4CH; 

56 cursorDown=4DH; 

57 cursorRight=4EH; 
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1 cursorLeft=4FH; 

2 menuHot=l; (* menuVerify *) 

3 menuCancel=2; 

4 menuWaiting=3; 

5 okOk=menuHot; 

6 okAbort=4; 

7 okCancel=menuCancel; 

8 wbenchOpen=l; (* wbenchMessage *) 

9 wbenchClose=2; 

io (* IntuiMessage.qualifier *) 
n altLeft=QualifierSet{lAlt}; 

12 altRight=QualifierSet{rAlt}; 

13 amigaLeft=QualifierSet{ICommand}; 

14 amigaRight=QualifierSet{rCommand}; 

15 amigaKeys=amigaLeft+amigaRight; 

16 

17 TYPE 

18 IntuiMessage=RECORD 

19 execMessage:Message; 

20 dass: IDCMPFlagSet ; 

21 Code:CARDINAL; 

22 qualifier:QualifierSet; 

23 iAddress:ADDRESS; 

24 mouseX:INTEGER; 

25 mouseY:INTEGER; 

26 seconds:LONGCARD; 

27 mieros:LONGCARD; 

28 idcmpWindow:WindowPtr; 

29 specialLink:IntuiMessagePtr; 

30 END; 

31 

32 TYPE 

33 WindowFlags=( 

34 windowSizing,windowDrag,windowDepth,windowClose,sizeBRight/ 

35 sizeBBottom,simpleRefresh,superBitMap,backDrop,reportMouse, 

36 gimmeZeroZero,borderless,activate,windowActive,inRequest, 

37 menuState,rmbTrap,noCareRefresh,wf18,wf19,wf20,wf21,wf22, 

38 wf23,windowRefresh,wbenchWindow,windowTicked,wf27,wf28, 

39 wf29,wf30,wf31 

40 ) ; 

41 WindowFlagSet=SET OF WindowFlags; 

42 ScreenFlags=( 

43 wbenchScreen,sf1,sf2,sf3,showTitle,beeping,customBitMap, 

44 screenBehind,screenQuiet); 

45 ScreenFlagSet=SET OF ScreenFlags; 

46 

47 CONST 

48 otherRefresh=WindowFlagSet{simpleRefresh,superBitMap}; 

49 superünused=WindowFlagSet{wf18..wf23,wf27..wf31}; 
so stdScreenHeight=-l; 

51 customScreen=ScreenFlagSet{wbenchScreen..sf3}; 

52 

53 TYPE 

54 NewWindow=RECORD 

55 leftEdge:INTEGER; 

56 topEdge:INTEGER; 

57 width:INTEGER; 
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1 height:INTEGER; 

2 detailPen:Byte; 

3 blockPen:Byte; 

4 idcmpFlags:IDCMPFlagSet; 

5 flags:WindowFlagSet; 

6 firstGadget:GadgetPtr; 

7 checkMark:ImagePtr; 

8 title:ADDRESS; 

9 screen:ScreenPtr; 

10 bitMaprBitMapPtr; 

11 minWidth:INTEGER; 

12 minHeight:INTEGER; 

13 maxWidth:INTEGER; 

14 maxHeight:INTEGER; 

15 type:ScreenFlagSet; 

16 END; 

17 NewScreen=RECORD 

18 leftEdge:INTEGER; 

19 topEdge:INTEGER; 

20 width:INTEGER; 

21 height:INTEGER; . 

22 depth:INTEGER; 

23 detailPen:Byte; 

24 blockPen:Byte; 

25 viewModes:ViewModeSet; 

26 type:ScreenFlagSet; 

27 font:TextAttrPtr; 

28 defaultTitle:ADDRESS; 

29 gadgets:GadgetPtr; 

30 customBitMap:BitMapPtr; 

31 END; 

32 Window=RECORD 

33 nextWindow:WindowPtr; 

34 leftEdge:INTEGER; 

35 topEdge: INTEGER; 

36 width: INTEGER; 

37 height:INTEGER; 

38 mouseY:INTEGER; 

39 mouseX:INTEGER; 

40 minWidth:INTEGER; 

4 1 minHeight:INTEGER; 

42 maxWidth:INTEGER; 

43 maxHeight:INTEGER; 

44 flags:WindowFlagSet ; 

45 menuStrip:MenuPtr; 

46 title:ADDRESS; 

47 firstRequest:RequesterPtr; 

48 dmRequest:RequesterPtr; 

49 reqCount:INTEGER; 

so wScreen:ScreenPtr; 

51 rPort:RastPortPtr; 

52 borderLeft:Byte; 

53 borderTop:Byte; 

54 borderRight:Byte; 

55 borderBottom:Byte; 

56 borderRPort:RastPortPtr; 

57 firstGadget:GadgetPtr; 
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1 parent:WindowPtr; 

2 descendant:WindowPtr; 

3 pointer:ADDRESS; 

4 pt rHeight:Byt e; 

5 ptrWidth:[0..16]; 

6 xOffset:Byte; 

7 yOffset:Byte; 

8 idcmpFlags:IDCMPFlagSet; 

9 userPort:MsgPortPtr; 

io windowPort:MsgPortPtr; 
n messageKey:IntuiMessagePtr; 

12 detailPemüByte; 

13 blockPen:UByte; 

14 checkMark:ImagePtr; 

15 screenTitle:ADDRESS; 

16 gzzMouseX:INTEGER; 

17 gz zMouseY:INTEGER; 

18 gzzWidth:INTEGER; 

19 gzzHeight:INTEGER; 

20 extData:ADDRESS; 

21 userData:ADDRESS; 

22 wLayer:LayerPtr; 

23 iFont:TextFontPtr; 

24 END; 

25 Screen=RECORD 

26 nextScreen:ScreenPtr; 

27 firstWindow:WindowPtr; 

28 leftEdge:INTEGER; 

29 topEdge:INTEGER; 

30 width:INTEGER; 

31 height:INTEGER; 

32 mouseY:INTEGER; 

33 mouseX:INTEGER; 

34 flags:ScreenFlagSet; 

35 title:ADDRESS; 

36 defaultTitle:ADDRESS; 

37 barHeight:Byte; 

38 barVBorder:Byte; 

39 barHBorder:Byte; 

40 menuVBorder:Byte; 

41 menuHBorder:Byte; 

42 wBorTop:Byte; 

43 wBorLeft:Byte; 

44 wBorRight:Byte; 

45 wBorBottom:Byte; 

46 font:TextAttrPtr; 

47 viewPort:ViewPort; 

48 rastPort:RastPort; 

49 bitMap:BitMap; 

so layerlnfo:LayerInfo; 

51 firstGadget:GadgetPtr; 

52 detailPen:UByte; 

53 blockPen:UByte; 

54 saveColorO:CARDINAL; 

55 barLayerrLayerPtr; 

56 extData:ADDRESS; 

57 userData:ADDRESS; 
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1 END; 

2 

3 CONST 

4 filenameSize=30; 

5 pointerSize=(1+16+1)*2; 

6 topazEighty=8; 

7 topazSixty=9; 

8 

9 TYPE 

io PrinterPort=(parallelPrinter,serialPrinter); 
n PrinterType=( 

12 customName,alphaP101,brotherl5XL,cbmMpslOOO,diab630, 

13 diabAdvD25,diabC150,epson,epsonJX80,okimate20, QumeLP20, 

14 hpLaserjet,hpLaserjetPlus 

15 ) ; 

16 SerParShk=( 

17 shakeXon,shakeRts,shakeNone,spsS,parityNone,parityEven, 

18 parityOdd 

19 ) ; 

20 SerParShkSet=SET OF SerParShk; 

21 Preferences=RECORD 

22 fontHeight:UByte; 

23 printerPort:PrinterPort; 

24 baudRate:CARDINAL; 

25 keyRptSpeed:TimeVal; 

26 keyRptDelay:TimeVal; 

27 doubleClick:TimeVal; 

28 pointerMatrix:ARRAY [0..pointerSize-1] OF CARDINAL; 

29 xOffset:Byte; 

30 yOf f set: Byte; 

31 colorl7:CARDINAL; 

32 colorl8:CARDINAL; 

33 colorl9:CARDINAL; 

34 pointerTicks:CARDINAL; 

35 colorO:CARDINAL; 

36 colorl:CARDINAL; 

37 color2:CARDINAL; 

38 color3:CARDINAL; 

39 viewXOffset:Byte; 

40 viewYOffset:Byte; 

41 viewInitX:INTEGER; 

42 viewInitY:INTEGER; 

43 enableCLI:BOOLEAN; 

44 printerType:PrinterType; 

45 printerFilename:ARRAY [0..filenameSize-1] OF CHAR; 

46 printPitch:CARDINAL; 

47 printQuality:CARDINAL; 

48 printSpacing:CARDINAL; 

49 printLeftMargin:CARDINAL; 
so printRightMargin:CARDINAL; 

51 printImage:CARDINAL; 

52 printAspect:CARDINAL; 

53 printShade:CARDINAL; 

54 printThreshold:INTEGER; 

55 paperSize:CARDINAL; 

56 paperLength:CARDINAL; 

57 paperType:CARDINAL; 
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1 serRWBits:UByte; 

2 serStopBuf:UByte; 

3 serParShk:SerParShkSet; 

4 1aceWB:BOOLEAN; 

5 workName:ARRAY [0..filenameSize-1] OF CHAR; 

6 padding:ARRAY [0..15] OF BYTE; 

7 END; 

8 CONST 

9 baudll0=0; 
io baud300=l; 
n baudl200=2; 

12 baud2400=3; 

13 baud4800=4; 

14 baud9600=5; 

15 baudl9200=6; 

16 baudMidi=7; 

17 pica=0H; 

18 elite=0400H; 

19 fine=0800H; 

20 draft=0H; 

21 letter=0100H; 

22 sixLPI=0H; 

23 eightLPI=0200H; 

24 imagePositive=0; 

25 imageNegative=l; 

26 aspectHoriz=0; 

27 aspectVert=l; 

28 shadeBW=0; 

29 shadeGreyscale=l; 

30 shadeColor=2; 

31 usLetter=0H; 

32 usLegal=010H; 

33 nTractor=020H; 

34 wTractor=030H; 

35 custom=040H; 

36 fanfold=0H; 

37 single=080H; 

38 readBits=0F0H; 

39 writeBits=0FH; 

40 stopBits=0F0H; 

41 bufSizeBits=0FH; 

42 buf512=0; 

43 buf 1024=1; 

44 buf2048=2 ; 

45 buf 4096=3; 

46 buf8000=4; 

47 buf 16000=5; 

48 

49 TYPE 

so Remember=RECORD 

51 nextRemember:RememberPtr; 

52 rememberSize:LONGCARD; 

53 memory:ADDRESS; 

54 END; 

55 

56 CONST 

57 deadendAlert=80000000H; recoveryAlert=0; 
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2 TYPE 

3 DisplayMode=(hiresPick,lowresPick); 

4 

5 CONST 

6 dModeCount=ORD(MAX(DisplayMode))+1; 

7 eventMax=10; 

8 

9 TYPE 

io Res=(hiresGadget,lowresGadget); 
n 

12 CONST 

13 resCount=ORD(MAX(Res) ) +1/ 

14 

15 TYPE 

16 Gadgets= ( 

17 upFrontGadget,downBackGadget,sizeGadget, closeGadget, 

18 dragGadget, süpFrontGadget, sDownBackGadget, sDragGadget 

19 ) ; 

20 

21 CONST 

22 gadgetCount=ORD(MAX(Gadgets) ) +1; 

23 

24 TYPE 

25 ILOCkS= ( 

26 iStateLock,layerlnfoLock,gadgetsLock,layerRomLock,viewLock, 

27 iBaseLock,rpLock 

28 ) ; 

29 CONST 

30 numILocks=ORD(MAX(ILocks)) +1/ 

31 

32 TYPE 

33 FatIntuiMessage=RECORD 

34 intuiMessage:IntuiMessage; 

35 prevKeys:LONGCARD; 

36 END; 

37 IBox=RECORD 

38 left: INTEGER; 

39 top: INTEGER; 

40 width: INTEGER; 

41 height: INTEGER; 

42 END; 

43 Point=RECORD 

44 x: INTEGER; 

45 y: INTEGER; 

46 END; 

47 PenPair=RECORD 

48 detailPen:UByte; 

49 blockPen:UByte; 
so END; 

51 GListEnv=RECORD 

52 screen:ScreenPtr; 

53 window:WindowPtr; 

54 requester:RequesterPtr; 

55 rastPort:RastPortPtr; 

56 layer:LayerPtr; 

57 gzzLayer:LayerPtr; 
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1 pens:PenPair; 

2 domain:IBox; 

3 gzzDims:IBox; 

4 END; 

5 GListEnvPtr=POINTER TO GListEnv; 

6 GadgetInfo=RECORD 

7 environ:GListEnvPt r; 

8 gadget:GadgetPt r; 

9 box:IBox; 

io Container:IBox; 
n layer:LayerPtr; 

12 newKnob:IBox; 

13 END; 

14 

15 CONST 

16 numIEvents= 4 ; 

17 

18 TYPE 

19 IntuitionBase=RECORD 

20 1 ibNode:Library; 

21 viewLord:View; 

22 activeWindow:WindowPtr; 

23 activeScreen:ScreenPtr; 

24 firstScreen:ScreenPtr; 

25 flags:LONGSET; 

26 mouseY:INTEGER; 

27 mouseX:INTEGER; 

28 seconds:LONGCARD; 

29 mieros:LONGCARD; 

30 minXMouse:INTEGER; 

31 maxXMouse:INTEGER; 

32 minYMouse:INTEGER; 

33 maxYMouse:INTEGER; 

34 startSecs:LONGCARD; 

35 startMicros:LONGCARD; 

36 sysBase:ADDRESS; 

37 gfxBase:GfxBasePtr; 

38 layersBase:ADDRESS; 

39 consoleDevice:ADDRESS; 

40 aPointer:ADDRESS; 

4 1 aPtrHeight:UByte; 

42 aPtrWidth:[ 0 . .16] ; 

43 aXOffset:UByte; 

44 aYOffset:UByte; 

45 menuDrawn:CARDINAL; 

46 menuSelected:CARDINAL; 

47 optionList:CARDINAL; 

48 menuRPort:RastPort; 

49 menuTmpRas:TmpRas; 
so itemCRect:ClipRect; 

51 subCRect:ClipRect; 

52 iBitMap:BitMap; 

53 sBitMap:BitMap; 

54 inputRequest:IOStdReq; 

55 inputInterrupt:Interrupt; 

56 eventKey:RememberPtr; 

57 iEvents:ADDRESS; 
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1 eventCount:INTEGER; 

2 ieBuffer:ARRAY [ 0 ..numIEvents- 1 ] OF InputEvent 

3 activeGadget:GadgetPtr; 

4 activePInfo:PropInfoPtr; 

5 activelmage:ImagePtr; 

6 gadgetEnvrGListEnv; 

7 gadgetInfo:GadgetInfo; 

8 knobOffset:Point; 

9 getOKWindow:WindowPtr; 

io getOKMessage:IntuiMessagePtr; 
n setWExcept:CARDINAL; 

12 gadgetReturn:CARDINAL; 

13 stateReturn:CARDINAL; 

14 rp:RastPortPtr; 

15 i TmpRa s: TmpRa s; 

16 oldClipRegion:RegionPtr; 

17 oldScroll:Point; 

18 iFrame:IBox; 

19 hthick:INTEGER; 

20 vthick:INTEGER; 

21 frameChange:PROC; 

22 sizeDrag:PROC; 

23 firstPt:Point; 

24 oldPt:Point; 

25 sysGadgets:ARRAY Res,Gadgets OF GadgetPtr; 

26 checkImage:ARRAY Res OF ImagePtr; 

27 amigaIcon:ARRAY Res OF ImagePtr; 

28 aPattern:ARRAY [ 0 .. 7 ] OF CARDINAL; 

29 bPattern:ARRAY [0..3] OF CARDINAL; 

30 iPointer:ADDRESS; 

3 1 iPtrHeight:UByte; 

32 iPtrWidth: [0 . . 16] ; 

33 iXOffset:UByte; 

34 iYOffset:UByte; 

35 doubleSeconds:LONGINT; 

36 doubleMicros:LONGINT; 

37 wBorLeft, 

38 wBorTop, 

39 wBorRight, 

40 wBorBottom, 

41 barVBorder, 

42 barHBorder, 

43 menuVBorder, 

44 menuHBorder:ARRAY DisplayMode OF Byte; 

45 colorO:CARDINAL; 

46 colorl:CARDINAL; 

47 color 2 :CARDINAL; 

48 color 3 :CARDINAL; 

49 colorl 7 :CARDINAL; 

50 colorl8:CARDINAL; 

5 1 colorl 9 .-CARDINAL; 

52 sysFont:TextAttr; 

53 preferences:PreferencesPtr; 

54 echoes:ADDRESS; 

55 viewInitX:INTEGER; 

56 viewInitY:INTEGER; 

57 cursorDX:INTEGER; 
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1 cursorDY:INTEGER; 

2 keyMap:KeyMapPtr; 

3 mouseYMinimum:INTEGER; 

4 errorX:INTEGER; 

5 errorY:INTEGER; 

6 ioExcess:TimeRequest; 

7 holdMinYMouse:INTEGER; 

8 wbPort:MsgPortPtr; 

9 fnkuhdPort:MsgPortPtr; 
io wbMessage:IntuiMessage; 
n hitScreen:ScreenPtr; 

12 simpleSprite:SimpleSpritePtr; 

13 attachedSSprite:SimpleSpritePtr; 

14 gotSpritei:BOOLEAN; 

15 semaphoreList:List; 

16 iSemaphore:ARRAY ILocks OF SignalSemaphore; 

17 maxDisplayHeight:INTEGER; 

18 maxDisplayRow:INTEGER; 

19 reservedrARRAY [ 0 .. 7 ] OF LONGCARD; 

20 END; 

21 IntuitionBasePtr=POINTER TO IntuitionBase; 

22 

23 (* 

24 * Die Prozedure AllocRemember, OpenScreen und OpenWindow 

25 * haben eine VAR Parameter. 

26 *) 

27 


28 PROCEDURE 

29 

30 

31 

32 PROCEDURE 

33 PROCEDURE 

34 

35 

36 PROCEDURE 

37 

38 

39 

40 

41 

42 PROCEDURE 

43 

44 

45 

46 PROCEDURE 

47 PROCEDURE 

48 

49 

50 

51 

52 

53 

54 

55 PROCEDURE 

56 PROCEDURE 

57 


ActivateGadget( 
gadget{8}:GadgetPtr; 
window{9}:WindowPtr; 

requester{10}:RequesterPtr):BOOLEAN; CODE -462; 
ActivateWindow(window{8}:WindowPtr); CODE -450; 
AddGadget(window{8}:WindowPtr; 

gadget{9} :GadgetPtr; 

Position{0}:INTEGER):INTEGER; CODE -42; 

AddGList( 

window{8}:WindowPtr; 
gadget{9} :GadgetPtr; 

Position{0}:INTEGER; 
numGad{1}:INTEGER; 

requester{10}:RequesterPtr):INTEGER; CODE -438; 
AllocRemember( 

VAR rememberKey{8}:ADDRESS; 
size{0}:LONGCARD; 

flagsfl}:MemReqSet):ADDRESS; CODE -396; 
AlohaWorkbench(wbPort{8}:MsgPortPtr); CODE -402; 
AutoRequest(window{8}:WindowPtr; 

bodyText{9}:IntuiTextPtr; 
positiveText{10}:IntuiTextPtr; 
negativeText{11}:IntuiTextPtr; 
positiveFlags{0}:IDCMPFlagSet; 
negativeFlags{1}:IDCMPFlagSet; 
width{2}:INTEGER; 

height{3}:INTEGER)rBOOLEAN; CODE -348; 
BeginRefresh(window{8}:WindowPtr); CODE -354; 
BuildSysRequest( 
window{8}:WindowPtr; 


f 


( 


( 
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1 

2 

3 

4 

5 

6 

7 PROCEDURE 

8 

9 PROCEDURE 

10 PROCEDURE 

11 PROCEDURE 

12 PROCEDURE 

13 PROCEDURE 

14 PROCEDURE 

15 

16 PROCEDURE 

17 

18 

19 PROCEDURE 

20 PROCEDURE 

21 
22 

23 

24 

25 PROCEDURE 

26 

27 

28 

29 PROCEDURE 

30 

31 

32 

33 PROCEDURE 

34 

35 PROCEDURE 

36 

37 PROCEDURE 

38 

39 PROCEDURE 

40 PROCEDURE 

41 

42 PROCEDURE 

43 

44 PROCEDURE 

45 

46 

47 

48 

49 PROCEDURE 

50 PROCEDURE 

51 

52 PROCEDURE 

53 PROCEDURE 

54 

55 

56 PROCEDURE 

57 


bodyText{9}:IntuiTextPtr; 
positiveText{10}:IntuiTextPtr; 
negativeText{11}:IntuiTextPtr; 
idcmpFlags{0}:IDCMPFlagSet; 
width{1}:INTEGER; 

height{2}:INTEGER):WindowPtr; CODE -360; 
ClearDMRequest( 

window{8}:WindowPtr):BOOLEAN; CODE -48; 
ClearMenuStrip(window{8}:WindowPtr); CODE -54; 
ClearPointer(window{8}:WindowPtr); CODE -60; 
CloseScreen(screen{8}:ScreenPtr); CODE -66; 
CloseWindow(window{8):WindowPtr); CODE -72; 
CloseWorkBench()iBOOLEAN; CODE -78; 

CurrentTime(seconds{8}:ADDRESS; 

micros{9}:ADDRESS); CODE -84; 
DisplayAlert(alertNumber{0}:LONGCARD; 

string{8}:ADDRESS; 

height{1}:LONGCARD):BOOLEAN; CODE -90; 
DisplayBeep(screen{8}:ScreenPtr); CODE -96; 
Doubleclick( 
startSecs{0}:LONGINT; 
startMicros{1}:LONGINT; 
currentSees{2}:LONGINT; 

currentMicros{3}:LONGINT):BOOLEAN; CODE -102; 
DrawBorder(rastPort{8}:RastPortPtr; 

border{9):BorderPtr; 
leftOffset{0}:INTEGER; 
topOffsetd) : INTEGER) ; CODE -108; 
Drawlmage(rastPort{8}:RastPortPtr; 
image{9}:ImagePtr; 
leftOffset{0}:INTEGER; 
topOffsetd) : INTEGER) ; CODE -114; 

EndRefresh(window{8}:WindowPtr; 

complete{0):BOOLEAN); CODE -366; 
EndRequest(requester{8}:RequesterPtr; 

window{9}:WindowPtr); CODE -120; 
FreeRemember(rememberKey{8}:ADDRESS; 

reallyForget{0}:BOOLEAN); CODE -408; 
FreeSysRequest(window{8):WindowPtr); CODE -372; 
GetDefPrefs(prefBuffer{8}:PreferencesPtr; 

size{0):INTEGER); CODE -126; 

GetPrefs(prefBuffer{8}:PreferencesPtr; 

Size{0):INTEGER); CODE -132; 

GetScreenData( 
buffer{8):ADDRESS; 
size{0}:CARDINAL; 
type{1}:ScreenFlagSet; 

screen{9}:ScreenPtr):BOOLEAN; CODE -426; 
InitRequester(requester{8}:RequesterPtr); CODE -138 
IntuiTextLength( 

iText{8}:IntuiTextPtr):INTEGER; CODE -330; 
Intuition(inputEvent{8}:InputEventPtr); CODE -36; 
ItemAddress( 
menuStrip{8):MenuPtr; 

menuNumber{0}:CARDINAL):MenuItemPtr; CODE -144; 
LocklBase( 

lockNumber{0}:LONGCARD):LONGCARD; CODE -414; 
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1 PROCEDURE 

2 PROCEDURE 

3 

4 PROCEDURE 

5 

6 
7 


9 

10 

11 

12 PROCEDURE 

13 

14 

15 PROCEDURE 

16 

17 

18 PROCEDURE 

19 

20 
21 
22 

23 

24 

25 

26 

27 PROCEDURE 

28 

29 

30 PROCEDURE 

31 

32 PROCEDURE 

33 

34 

35 PROCEDURE 

36 

37 PROCEDURE 

38 PROCEDURE 

39 

40 PROCEDURE 

41 

42 PROCEDURE 

43 PROCEDURE 

44 

45 

46 

47 PROCEDURE 

48 

49 

50 

51 PROCEDURE 

52 

53 

54 

55 PROCEDURE 

56 PROCEDURE 

57 PROCEDURE 


MakeScreen(screen{8}:ScreenPtr); CODE -378; 

ModifylDCMP(window{8}:WindowPtr; 

idcmpFlags{0}:IDCMPFlagSet); CODE -150; 

ModifyProp(gadget{8}:GadgetPtr; 

window{9}:WindowPtr; 

requester{10}:RequesterPtr; 

flags{0}:PropInfoFlagSet; 

horizPot{1}:CARDINAL; 

vertPot{2}:CARDINAL; 

horizBody{3}:CARDINAL; 

vertBody{4}:CARDINAL); CODE -156; 

MoveScreen(screen{8}:ScreenPtr; 

deltaX{0}:INTEGER; 

deltaY{l}:INTEGER); CODE -162; 

MoveWindow(window{8}:WindowPtr; 

deltaX{0}:INTEGER; 

deltaY{l}:INTEGER); CODE -168; 

NewModifyProp(gadget{8}:GadgetPtr; 

window{9}:WindowPtr; 
requester{10}:RequesterPtr; 
flags{0}:PropInfoFlagSet; 
horizPot{1}:CARDINAL; 
vertPot{2}:CARDINAL; 
horizBody{3}:CARDINAL; 
vertBody{4}:CARDINAL; 
numGad{5}:INTEGER); CODE -468; 

OffGadget(gadget{8}:GadgetPtr; 

window{9}:WindowPtr; 

requester{10}:RequesterPtr); CODE -174; 

OffMenu(window{8}:WindowPtr; 

menuNumber{0}:CARDINAL); CODE -180; 

OnGadget(gadget{8}:GadgetPtr; 

window{9}:WindowPtr; 

requester{10}:RequesterPtr); CODE -186; 

OnMenu(window{8}:WindowPtr; 

menuNumber{0}:CARDINAL); CODE -192; 

Openlntuition():IntuitionBasePtr; CODE -30; 

OpenScreen( 

VAR newScreen{8}:NewScreen):ScreenPtr; CODE -198; 

OpenWindow( 

VAR newWindow{8}:NewWindow):WindowPtr; CODE -204; 

OpenWorkBench():ScreenPtr; CODE -210; 

PrintIText(rastPort{8):RastPortPtr; 

iText{9}:IntuiTextPtr; 
leftOffset{0}:INTEGER; 
topOffset{l}:INTEGER); CODE -216; 

RefreshGadgets( 
gadgets{8}:GadgetPtr; 
window{9}:WindowPtr; 

requester{10}:RequesterPtr); CODE -222; 

RefreshGList(gadgets{8}:GadgetPtr; 

window{9}:WindowPtr; 
requester{10}:RequesterPtr; 
numGad{0}:INTEGER); CODE -4 3 2; 

RefreshWindowFrame(window{8):WindowPtr); CODE -456; 

RemakeDisplay(); CODE -384; 

RemoveGadget( 


f 


( 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


PROCEDURE 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


PROCEDURE 

PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 

PROCEDURE 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


window{8}:WindowPtr; 

gadget{9}:GadgetPtr):INTEGER; CODE -228; 
RemoveGList(window{8):WindowPtr; 

gadget{9}:GadgetPtr; 

numgad{0}:INTEGER):INTEGER; CODE -444; 
ReportMouse(window{8}:WindowPtr; 

boolean{0}:BOOLEAN); CODE -234; 

Request(requester{8}:RequesterPtr; 

window{9}:WindowPtr):BOOLEAN; CODE -240; 
RethinkDisplay(); CODE -390; 

ScreenToBack(screen{8}:ScreenPtr); CODE -246; 
ScreenToFront(screen{8}:ScreenPtr); CODE -252; 
SetDMRequest( 
window{8}:WindowPtr; 

dmRequester{9}:RequesterPtr):BOOLEAN; CODE -258; 
SetMenuStrip(window{8}:WindowPtr; 

menu{9}:MenuPtr):BOOLEAN; CODE -264; 
SetPointer(window{8}:WindowPtr; 

pointer{9}:ADDRESS; 

height{0}:INTEGER; 

width{1}:INTEGER; 

xOffset{2}:INTEGER; 

yOffset{3}:INTEGER); CODE -270; 

SetPrefs(prefBuffer{8}:PreferencesPtr; 

Size{0}:INTEGER; 

Inform{1}:BOOLEAN); CODE -324; 
SetWindowTitles( 
window{8}:WindowPtr; 
windowTitle{9}:ADDRESS; 
screenTitle{10}:ADDRESS); CODE -276; 

ShowTitle(screen{8}:ScreenPtr; 

showlt{0}:BOOLEAN); CODE -282; 

SizeWindow(window{8}:WindowPtr; 

deltaX{0}:INTEGER; 
deltaY{l}:INTEGER); CODE -288; 
UnlocklBase(lock{8}:LONGCARD); CODE -420; 
ViewAddress():ViewPtr; CODE -294; 

ViewPortAddress( 

window{8}:WindowPtr):ViewPortPtr; CODE -300; 
WBenchToBack():BOOLEAN; CODE -336; 

WBenchToFront():BOOLEAN; CODE -342; 


(* 

* Den Paramentern maxWidth und maxHeight darf man auch den 

* Wert -1 zuweisen, falls man die Window Grösse nicht 

* beschränken will. Damit dies nicht zu einem Laufzeitfehler 

* führt wurden diese Parameter im Gegensatz zu den 

* C Deklarationen als INTEGER und nicht als CARDINAL 

* deklariert. 


*) 

PROCEDURE WindowLimits( 

window{8}:WindowPtr; 
minWidth{0}:INTEGER; 
minHeight{1}:INTEGER; 
maxWidth{2}:INTEGER; 

maxHeight{3}:INTEGER):BOOLEAN; CODE -318; 
PROCEDURE WindowToBack(window{8}:WindowPtr); CODE -306; 
PROCEDURE WindowToFront(window{8}:WindowPtr); CODE -312; 
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1 

2 END Intuition. 

3 
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5 (* $M- *) 

6 DEFINITION MODULE Keyboard; 

7 

8 FROM Exec IMPORT 

9 nonstd; 

10 

11 CONST 

12 keyboardName =,, keyboard. device"; 

13 readEvent=nonstd+0; 

14 readMatrix=nonstd+l; 

15 addResetHandler=nonstd+2; 

16 remResetHandler=nonstd+3; 

17 resetHandlerDone=nonstd+4; 

18 

19 END Keyboard. 

20 
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5 (* $M- *) 

6 DEFINITION MODULE KeyMap; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS,LONGSET; 
io FROM Exec IMPORT 
n Node,List; 

12 

13 TYPE 

14 KeyMapTypes=(shift,alt,control,downup,kmp4,dead,string,nop); 

15 KeyMapTypeSet=SET OF KeyMapTypes; 

16 DeadPrefixBytes=(dpbMod,dpbl,dpb2,dpbDead); 

17 DeadPrefixByteSet=SET OF DeadPrefixBytes; 

18 

19 CONST 

20 dp2dIndexMask=0FH; 

21 dp2dFacShift=4; 

22 maxKeys=64; 

23 noQual=KeyMapTypeSet{}; 

24 vanilla=KeyMapTypeSet{shift,alt,control}; 

25 

26 TYPE 

27 BitTable= 

28 ARRAY [0..maxKeys DIV (8*SIZE(LONGSET))-1] OF LONGSET; 

29 BitTablePtr=POINTER TO BitTable; 

30 Key Inf o=RECORD 

31 CASE : INTEGER OF 

32 |0: ch:ARRAY [0..3] OF CHAR; 

33 | 1: st: ADDRESS 

34 END 

35 END; 

36 Types =ARRAY [0..maxKeys-1] OF KeyMapTypeSet; 

37 TypesPtr=POINTER TO Types; 

38 Info=ARRAY [0..maxKeys-1] OF Keyinfo; 

39 InfoPtr=POINTER TO Info; 

40 KeyMap=RECORD 

41 loKeyMapTypes:TypesPtr; 

42 loKeyMap:InfoPtr; 

43 loCapsable:BitTablePtr; 

44 loRepeatable:BitTablePtr; 

45 hiKeyMapTypes:TypesPtr; 

46 hiKeyMap:InfoPtr; 

47 hiCapsable:BitTablePtr; 

48 hiRepeatable:BitTablePtr; 

49 END; 

so KeyMapPtr=POINTER TO KeyMap; 

5 1 KeyMapNode=RECORD 

52 node:Node; 

53 keyMap:KeyMap; 

54 END; 

55 KeyMapResource=RECORD 

56 node:Node; 

57 list:List; 


KeyMap 


1 END; 

2 

3 END KeyMap. 

4 


Schnittsteilen-Moduln 


13-79 


Layers 


Layers 


5 DEFINITION MODULE Layers {"layers.library", 33}; 

6 

7 FROM SYSTEM IMPORT 

8 LONGSET; 

9 FROM Graphics IMPORT 

10 ClipRectPtr,BitMapPtr,LayerlnfoPtr,LayerPtr,RastPortPtr, 

11 RegionPtr; 


13 PROCEDURE BeginUpdate(1{8}:LayerPtr):LONGINT; CODE -78; 

14 PROCEDÜRE BehindLayer(1{9}:LayerPtr):LONGINT; CODE -54; 

15 PROCEDURE CreateBehindLayer( 

16 li{8}:LayerlnfoPtr; 

17 bm{9}:BitMapPtr; 

18 xO{0}:LONGINT; 

19 yO{1}:LONGINT; 

20 xl{2}:LONGINT; 

21 yl { 3 } : LONGINT; 

22 flags{4}:LONGSET; 

23 bm2{10}:BitMapPtr):LayerPtr; CODE -42; 

24 PROCEDURE CreateUpfrontLayer( 

25 li{8}:LayerlnfoPtr; 

26 bm{9}:BitMapPtr; 

27 xO{0}:LONGINT; 

28 yO{1}:LONGINT; 

29 xl{2}:LONGINT; 

30 yl{3}:LONGINT; 

31 flags{4}:LONGSET; 

32 bm2{10}:BitMapPtr):LayerPtr; CODE -36; 

33 PROCEDURE DeleteLayer(1{9}:LayerPtr):LONGINT; CODE -90; 

34 PROCEDURE DisposeLayerlnfo(li{8}:LayerlnfoPtr); CODE -150; 

35 PROCEDURE EndUpdate(1{8}:LayerPtr; flag{0}:BOOLEAN); CODE 

36 <*VERALTET*)PROCEDURE FattenLayerlnfo( 

37 li{8}:LayerlnfoPtr); CODE -156; 

38 (^VERALTET*)PROCEDURE InitLayers( 

39 li{8}:LayerlnfoPtr); CODE -30; 

40 PROCEDURE InstallClipRegion( 

41 1 {8} : LayerPtr; 

42 region{9}:RegionPtr):RegionPtr; CODE -174; 

43 PROCEDURE LockLayer(1{9}:LayerPtr); CODE -96; 

44 PROCEDURE LockLayerlnfo(li{8}:LayerlnfoPtr); CODE -120; 

45 PROCEDURE LockLayers(li{8}:LayerlnfoPtr); CODE -108; 

46 PROCEDURE MoveLayer(1{9}:LayerPtr; 

47 dx{0},dy{1}:LONGINT):LONGINT; CODE -60 

48 PROCEDURE MoveLayerlnFrontOf( 

49 1{8},target{9}:LayerPtr):LONGINT; CODE -168; 
so PROCEDURE NewLayerlnfo():LayerlnfoPtr; CODE -144; 

si PROCEDURE ScrollLayer( 

52 1{9}:LayerPtr; dx{0}/dy{1}:LONGINT); CODE -72; 

53 PROCEDURE SizeLayer(1{9}:LayerPtr; 

54 dx{0},dy{1}:LONGINT):LONGINT; CODE -66 

55 PROCEDURE SwapBitsRastPortClipRect ( 

56 rp{8}:RastPortPtr; 

57 er{9}:ClipRectPtr); CODE -126; 
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1 (*VERALTET*)PROCEDURE ThinLayerlnfo( 

2 li{8}:LayerInfoPtr); CODE -162; 

3 PROCEDURE UnlockLayer(1{8}:LayerPtr); CODE -102; 

4 PROCEDURE UnlockLayerlnfo(li{8}:LayerlnfoPtr); CODE -138; 

5 PROCEDURE UnlockLayers(li{8}:LayerlnfoPtr); CODE -114; 

6 PROCEDURE UpfrontLayer(1{9}:LayerPtr):LONGINT; CODE -48; 

7 PROCEDURE WhichLayer(li{8}:LayerlnfoPtr; 

8 x{0},y{l}:LONGINT):LayerPtr; CODE -132; 

9 

10 END Layers. 

11 
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MathlEEEDoubTrans 

5 DEFINITION MODULE 

e MathlEEEDoubTrans {"mathieeedoubtrans.library", 34} ; 

i 

8 PROCEDURE Acos(x{0}:LONGREAL):LONGREAL; CODE -120; 

9 PROCEDURE Asin(x{0}:LONGREAL)rLONGREAL; CODE -114; 
io PROCEDURE Atan(x{0}:LONGREAL):LONGREAL; CODE -30; 
u PROCEDURE Cos (x{0}rLONGREAL):LONGREAL; CODE -42; 

12 PROCEDURE Cosh(x{0}rLONGREAL)rLONGREAL; CODE -66; 

13 PROCEDURE Exp(x{0}:LONGREAL):LONGREAL; CODE -78; 

14 PROCEDURE Fieee(x{0}:REAL)tLONGREAL; CODE -108; 

15 PROCEDURE Log(x{0}:LONGREAL):LONGREAL; CODE -84; 

16 PROCEDURE LoglO<x{0)rLONGREAL)rLONGREAL; CODE -126; 

17 PROCEDURE Pow(exp{0},x{2}rLONGREAL):LONGREAL; CODE -90; 

18 PROCEDURE Sin(x{0}:LONGREAL):LONGREAL; CODE -36; 

19 PROCEDURE Sincos(x{0}:LONGREAL; ( 

20 VAR cos{8}:LONGREAL):LONGREAL; CODE -54; 

21 PROCEDURE Sinh(x{0}:LONGREAL):LONGREAL; CODE -60; 

22 PROCEDURE Sqrt(x{0)rLONGREAL):LONGREAL; CODE -96; 

23 PROCEDURE Tan(x{0}:LONGREAL):LONGREAL; CODE -48; 

24 PROCEDURE Tanh(x{0)rLONGREAL):LONGREAL; CODE -72; 

25 PROCEDURE Tieee(x{0}:LONGREAL):REAL; CODE -102; 

26 

27 END MathlEEEDoubTrans. 

28 
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MathTrans 


5 DEFINITION MODULE MathTrans {"mathtrans.library",33}; 

6 

7 FROM SYSTEM IMPORT FFP; 

8 

9 PROCEDURE Acos (x{0}:FFP) :FFP; CODE -120; 

10 PROCEDURE Asin(x{0}:FFP):FFP; CODE -114; 

11 PROCEDURE Atan(x{0}:FFP):FFP; CODE -30; 

12 PROCEDURE Cos(x{0}:FFP):FFP; CODE -42; 

13 PROCEDURE Cosh(x{0}:FFP):FFP; CODE -66; 

14 PROCEDURE Exp(x{0}:FFP):FFP; CODE -78; 

15 PROCEDURE Fieee(x{0}:REAL):FFP; CODE -108; 

16 PROCEDURE Log(x{0}:FFP):FFP; CODE -84; 

17 PROCEDURE Logl0(x{0}:FFP):FFP; CODE -126; 

18 PROCEDURE Pow (exp{0},x{1}:FFP) :FFP; CODE -90; 

19 PROCEDURE Sin (x{0}:FFP) :FFP; CODE -36; 

20 PROCEDURE Sincos(x{0}:FFP; VAR cos{1}:FFP):FFP; CODE -54; 

21 PROCEDURE Sinh(x{0}:FFP):FFP; CODE -60; 

22 PROCEDURE Sqrt(x{0}:FFP):FFP; CODE -96; 

23 PROCEDURE Tan(x{0}:FFP):FFP; CODE -48; 

24 PROCEDURE Tanh(x{0}:FFP):FFP; CODE -72; 

25 PROCEDURE Tieee(x{0}:FFP):REAL; CODE -102; 

26 

27 END MathTrans. 

28 
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Narrator 


5 (* $M- *) 

6 DEFINITION MODULE Narrator; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS,BYTE; 

io FROM Exec IMPORT 
n IOStdReq,UByte; 

12 

13 CONST 

14 narratorName="narrator.device"; 

15 noMem=-2; 

16 noAudLib=-3; 

17 makeBad=-4; 

18 unitErr=-5; 

19 cantAlloc=-6; 

20 unimpl=-7; 

21 noWrite=-8; 

22 expunged=-9; 

23 phonErr=-20; 

24 rateErr=-21; 

25 pitchErr=-22; 

26 sexErr=-23; 

27 modeErr=-24; 

28 freqErr=-25; 

29 volErr=-26; 

30 

31 CONST 

32 male= 0 ; 

33 female=l; 

34 natural= 0 ; 

35 robotic=l; 

36 defPitch=110; 

37 defRate=150; 

38 defVol=64; 

39 defFreq=22200; 

40 defSex=male; 

41 defMode=natural; 

42 minRate=40; 

43 maxRate=400; 

44 minPitch=65; 

45 maxPitch=320; 

46 minFreq=5000; 

47 maxFreq=28000; 

48 minVol=0; 

49 maxVol=64; 

50 

51 TYPE 

52 IONarrator=RECORD 

53 message:IOStdReq; 

54 rate:CARDINAL; 

55 pitch: CARDINAL; 

56 mode: CARDINAL; 

57 sex:CARDINAL; 
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1 chMasks:ADDRESS; 

2 nmMasks:CARDINAL; 

3 vo1ume:CARDINAL; 

4 sampFreq:CARDINAL; 

5 mouths:UByte; 

6 chanMask:BYTE; 

7 numChan:BYTE; 

8 pad:BYTE; 

9 END; 

10 IONarratorPtr=POINTER TO IONarrator; 

11 Mouth=RECORD 

12 voice:Narrator; 

13 width:UByte; 

14 height:UByte; 

15 shape:BYTE; 

16 pad:BYTE; 

17 END; 

18 MouthPtr=POINTER TO Mouth; 

19 

20 END Narrator. 

21 
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Parallel 


f 

5 (*$M—*) 

6 DEFINITION MODULE Parallel; 

7 

8 FROM Exec IMPORT 

9 IOStdReq,nonstd; 

10 

11 CONST 

12 parallelName=”parallel.device"; 

13 query=nonstd; 

14 setParams=nonstd+l; 

15 

16 TYPE 

17 I OP Ar r ay=RECORD 

18 pTermArrayO:LONGCARD; , 

19 pTermArrayl: LONGCARD; ( 

20 END; 

21 ParErr= ( 

22 peO,devBusy,bufTooBig, invParam, ÜneErr, notOpen, portReset, 

23 initErr 

24 ) ; 

25 ParFlags=(pf0,eofMode,pf 2 , radBoogie,pf4 f shared); 

26 ParFlagSet=SET OF ParFlags; 

27 Status=(pSel,paperOut/pBusy,rwDir,active,abort,queued); 

28 StatusSet=SET OF Status; 

29 IOParallel=RECORD 

30 ioPar:IOStdReq; 

31 pExtFlags:LONGCARD; 

32 Status :StatusSet; 

33 parFlags:ParFlagSet; 

34 pTermArray:IOPArray; 

35 END; 

36 IOParallelPtr=POINTER TO IOParallelPar; 

37 

38 END Parallel. 
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5 (*$M-*) 

6 DEFINITION MODULE Printer; 

7 

8 FROM SYSTEM IMPORT 

9 CAST; 

io FROM Exec IMPORT 

n nonstd,DevicePtr,IOFlagSet,Message,UnitPtr,UByte; 

12 FROM Graphics IMPORT 

13 ColorMapPtr,RastPortPtr,ViewModeSet; 

14 

15 CONST 

16 printerName="printer.device"; 


17 

18 

19 

20 

21 

rawWrite=nonstd+0; 
prtCommand=nonstd+1; 
dumpRPort=nonstd+2; 

ris=0; (* ESCc reset 

ISO 

*) 

22 

rin=l; 

(* 

ESC#1 initialize 

+++ 

*) 

23 

ind=2; 

(* 

ESCD lf 

ISO 

*) 

24 

nel=3; 

<* 

ESCE return,lf 

ISO 

*) 

25 

26 

27 

ri=4; 

(* 

ESCM reverse lf 

ISO 

*) 

sgr0=5; 

(* 

ESC[0m normal char set 

ISO 

*) 

28 

sgr3=0; 

(* 

ESC[3m italics on 

ISO 

*) 

29 

sgr23=7; 

(* 

ESC[23m italics off 

ISO 

*) 

30 

sgr4=8; 

(* 

ESC[4m underline=0; 

ISO 

*) 

31 

sgr24=9; 

(* 

ESC[24m underline off 

ISO 

*> 

32 

sgrl=10; 

(* 

ESC[lm boldface on 

ISO 

*> 

33 

sgr22=ll; 

(* 

ESC[22m boldface off 

ISO 

*) 

34 

sfc=12; 

(* 

SGR30-39 set foreground color 

ISO 

*) 

35 

36 

37 

sbc=13; 

(* 

SGR40-49 set background color 

ISO 

*) 

shorp0=14 

(* 

ESC[0w normal pitch 

DEC 

*) 

38 

shorp2=15 

(* 

ESC[2w elite on 

DEC 

*) 

39 

shorpl=16 

(* 

ESC[lw elite off 

DEC 

*) 

40 

shorp4=17 

(* 

ESC[4w Condensed fine on 

DEC 

*) 

41 

shorp3=18 

(* 

ESC[3w Condensed off 

DEC 

*) 

42 

shorp6=19 

(* 

ESC[6w enlarged on 

DEC 

*) 

43 

44 

45 

shorp5=20 

(* 

ESC[5w enlarged off 

DEC 

*) 

den6= 21 

(* 

ESC[6"z shadow print on 

DEC 

(sort of) 

46 

den5= 22 

(* 

ESC[5"z shadow print off 

DEC 

*) 

47 

den4= 23 

(* 

ESC[4 M z doublestrike on 

DEC 

*) 

48 

den3= 24 

<* 

ESC[3"z doublestrike off 

DEC 

*) 

49 

den2= 25 

(* 

ESC[ 2 " z NLQ on 

DEC 

*) 

50 

denl= 26 

(* 

ESC[1"z NLQ off 

DEC 

*) 

51 

52 

sus2= 27 

(* 

ESC[2v superscript on 

+++ 

*) 

53 

susl= 28 

<* 

ESC[lv superscript off 

+++ 

*) 

54 

sus4= 29 

(* 

ESC[4v subscript on 

+++ 

*> 

55 

sus3= 30 

(* 

ESC[3v subscript off 

+++ 

*) 

56 

sus0= 31 

(* 

ESC[Ov normalize the line 

+++ 

*) 

57 

plu= 32 

(* 

ESCL partial line up 

ISO 

*) 
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1 

pld= 

33; 

(* 

ESCK partial line down 

ISO 

*) 

3 

fnt0= 

34; 

(* 

ESC(B US char set 

DEC 

*) 

4 

fntl= 

35; 

(* 

ESC(R French char set 

DEC 

*) 

5 

fnt2= 

36; 

(* 

ESC(K German char set 

DEC 

*) 

6 

fnt3= 

37; 

(* 

ESC(A UK char set 

DEC 

*) 

7 

fnt4= 

38; 

(* 

ESC(E Danish I char set 

DEC 

*) 

8 

fnt5= 

39; 

(* 

ESC(H Sweden char set 

DEC 

*) 

9 

fnt6= 

40; 

(* 

ESC(Y Italian char set 

DEC 

*) 

10 

fnt7= 

41; 

(* 

ESC(Z Spanish char set 

DEC 

*) 

11 

fnt8= 

42; 

(* 

ESC(J Japanese char set 

+++ 

*) 

12 

fnt 9= 

43; 

<* 

ESC(6 Norweign char set 

DEC 

*) 

13 

fntl0= 

44; 

(* 

ESC(C Danish II char set 

+++ 

*) 

14 

15 

prop2= 

45; 

<* 

ESC[2p proportional on 

+++ 

*) 

16 

propl= 

46; 

(* 

ESC[lp proportional off 

+++ 

*) 

17 

prop0= 

47; 

<* 

ESC[0p proportional clear 

+++ 

*) 

18 

tss= 

48; 

<* 

ESC[n E set proportional offset ISO *) 

19 

jfy5= 

49; 

(* 

ESC[5 F auto left justify 

ISO 

*) 

20 

jfy?= 

50; 

(* 

ESC[7 F auto right justify 

ISO 

*) 

21 

jfy6= 

51; 

(* 

ESC[6 F auto full justify 

ISO 

*) 

22 

jfy0= 

52; 

(* 

ESC[0 F auto justify off 

ISO 

*) 

23 

jfy3= 

53; 

(* 

ESC[3 F letter space (justify) 

ISO 

(special) 

24 

25 

jfyl= 

54; 

<* 

ESC[1 F word fill(auto center) 

ISO 

(special) 

26 

verp0= 

55; 

(* 

ESC[0z 1/8" line spacing 

+++ 

*) 

27 

verpl= 

56; 

(* 

ESC[lz 1/6" line spacing 

+++ 

*) 

28 

slpp= 

57; 

(* 

ESC[nt set form length n 

DEC 

*) 

29 

perf= 

58; 

(* 

ESC[nq perf skip n (n>0) 

+++ 

*) 

30 

Ol 

perf0= 

59; 

<* 

ESC[Oq perf skip off 

+++ 

*) 

«3 X 

32 

lms= 

60; 

<* 

ESC#9 Left margin set 

+++ 

*) 

33 

rms= 

61; 

<* 

ESC#0 Right margin set 

+++ 

*) 

34 

tms= 

62; 

<* 

ESC#8 Top margin set 

+++ 

*) 

35 

bms= 

63; 

<* 

ESC#2 Bottom marg set 

+++ 

*) 

36 

stbm= 

64; 

<* 

ESC[Pnl;Pn2r T&B margins 

DEC 

*) 

37 

slrm= 

65; 

<* 

ESC[Pnl;Pn2s L&R margin 

DEC 

*) 

38 

39 

cam= 

66; 

(* 

ESC#3 Clear margins 

++ + 

*) 

40 

hts= 

67; 

(* 

ESCH Set horiz tab 

ISO 

*) 

41 

vts= 

68; 

<* 

ESCJ Set vertical tabs 

ISO 

*) 

42 

tbc0= 

69; 

(* 

ESC[0g Clr horiz tab 

ISO 

*) 

43 

tbc3= 

70; 

(* 

ESC[3g Clear all h tab 

ISO 

*) 

44 

tbcl= 

71; 

<* 

ESC[lg Clr vertical tabs 

ISO 

*) 

45 

tbc4= 

72; 

(* 

ESC[4g Clr all v tabs 

ISO 

*) 

46 

tbcall 

=73; 

<* 

ESC#4 Clr all h & v tabs 

+++ 

*) 

47 

tbsall 

=74; 

(* 

ESC#5 Set default tabs 

+++ 

*) 

48 

A Ö 

extend 

=75; 

(* 

ESC[Pn"x extended commands 

+++ 

*) 

h y 

50 

TYPE 






51 

Error= 

( 






52 eO, cancel,notGraphics,invertHam,badDimension,dimensionOvflow, 

53 internalMemory,bufferMemory 

54 ) ; 

55 IOPrinter=RECORD 

56 message:Message; 

57 device:DevicePtr; 
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1 unit:UnitPtr; 

2 command: CARDINAL; 

3 flags:IOFlagSet; 

4 error:Error; 

5 prt Command: CARDINAL; 

6 parmO:UByte; 

7 parml:UByte; 

8 parm2:UByte; 

9 parm3:UByte; 
io END; 

n IOPrinterPtr=POINTER TO IOPrtCmdReq; 

12 Special= ( 

13 milCols,milRows,fullCols,fullRows,fracCols,fracRows,center, 

14 aspect,densityl,density2, density4 

15 ) ; 

16 SpecialSet=SET OF Special; 

17 

18 CONST 

19 density3=SpecialSet{densityl,density2}; 

20 densityMask=CAST(SpecialSet,0F00H); 

21 

22 TYPE 

23 IODRPReq=RECORD 

24 message:Message; 

25 device:DevicePtr; 

26 unit:UnitPtr; 

27 command: CARDINAL ; 

28 flags:IOFlagSet; 

29 error:Error; 

30 rastPort:RastPortPtr; 

31 colorMap:ColorMapPtr; 

32 modesHi: CARDINAL; 

33 modes:ViewModeSet; 

34 srcX: CARDINAL; 

35 srcY: CARDINAL; 

36 srcWidth: CARDINAL; 

37 srcHeight: CARDINAL; 

38 destCols:LONGINT; 

39 destRows:LONGINT; 

40 special:SpecialSet; 

41 END; 

42 IODRPReqPtr=POINTER TO IODRPReq; 

43 

44 END Printer. 

45 
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PrtBase 


5 (*$M-*) 

6 DEFINITION MODULE PrtBase; 

7 


8 FROM SYSTEM IMPORT 

9 ADDRESS,BYTE; 

io FROM Exec IMPORT 
n Library,MsgPort,Task,UByte; 

12 FROM Intuition IMPORT 

13 Preferences; 

14 FROM Parallel IMPORT 

15 IOExtPar; 

16 FROM Serial IMPORT 

17 IOExtSer; 

18 FROM Timer IMPORT 

19 TimeRequest; 

20 

21 TYPE 

22 DeviceData=RECORD 

23 device:Library; 

24 Segment:ADDRESS; 

25 execBase:ADDRESS; 

26 cmdVectors:ADDRESS; 

27 cmdBytes:ADDRESS; 

28 numCommands:CARDINAL; 

29 END; 

30 DeviceDataPtr=POINTER TO DeviceData; 

31 


32 CONST 

33 stkSize=0800H; 

34 

35 TYPE 

36 PrinterSegmentPtr=POINTER TO PrinterSegment 


37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


PrinterData=RECORD 
device:DeviceData; 
unit:MsgPort; 
printerSegment:ADDRESS; 
printerType:CARDINAL; 
segmentData:PrinterSegmentPtr; 
printBuf:ADDRESS; 
pWrite:PROCEDURE():INTEGER; 
pBothReadySPROCEDÜRE():INTEGER; 

CASE :INTEGER OF 
I 1: p0:IOExtPar; 

pl:IOExtPar; 

I 2: sO:IOExtSer; 
sl:IOExtSer; 

END; 

tior:TimeRequest; 
iorPort:MsgPort; 
tc:Task; 

stkrARRAY [0..stkSize-1] OF BYTE* 

flags:UByte; 

pad:BYTE; 


13-90 




PrtBase 


1 preferences:Preferences; 

2 pWaitEnabled:UByte; 

3 END; 

) 4 PrinterDataPtr=POINTER TO PrinterData; 

5 PrinterClass=(gfx,color); 

6 PrinterClassSet=SET OF PrinterClass; 

7 

8 CONST 

9 bwAlpha=0; 
io bwGfx=l; 

n colorGfx=3; 

12 bw=l; 

13 ymc= 2 ; 

14 ymcBw=3; 

15 ymcb=4; 

16 fourColor=04H; 

17 additive= 8 ; 

v 18 wb=9; 

' 19 bgr=10; 

20 bgrWb=ll; 

21 bgrw= 12 ; 

22 

23 TYPE 

24 PrinterExtendedData=RECORD 

25 printerName:ADDRESS; 

26 init: PROC; 

27 expunge:PROC; 

28 open :PROCEDURE():INTEGER; 

29 close:PROC; 

30 printerClass :BYTE; (* little bit Strange *) 

31 colorClass:UByte; 

32 maxColumns:UByte; 

33 numCharSets:UByte; 

34 numRows : CARDINAL; 

35 maxXDots:LONGCARD; 

36 maxYDots:LONGCARD; 

37 xDotsInch:CARDINAL; 

38 yDotsInch:CARDINAL; 

\ 39 commands:ADDRESS; 

40 doSpecial:PROCEDURE():INTEGER; 

41 render:PROCEDURE():INTEGER; 

42 timeoutSecs:LONGINT; 

43 EightBitChars:ADDRESS; 

44 END; 

45 PrinterExtendedDataPtr=POINTER TO PrinterExtendedData; 

46 PrinterSegment=RECORD 

47 nextSegment:ADDRESS; 

4 8 runAle rt:LONGCARD; 

49 Version: CARDINAL; 
so reVision: CARDINAL; 

51 ped:PrinterExtendedData; 

52 END; 

53 

54 END PrtBase. 

55 
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Resources 

( 

5 (*$M-*) 

6 DEFINITION MODULE Resources; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS/LONGSET; 
io FROM Exec IMPORT 

n base,vectSize,Interrupt/InterruptPtr,Library,LibraryPtr, 

12 List,Message, UByte; 

13 FROM Hardware IMPORT 

14 CialcrFlags,CialcrFlagSet; 

15 

16 CONST 

17 ciaaName="ciaa.resource"; 

18 ciabName="ciab.resource"; / 

19 ' 

20 TYPE 

21 CiaResourcePtr=ADDRE$S; 

22 

23 PROCEDURE AblelCR( 

24 cia{14}:CiaResourcePtr; 

25 mask{0}:CiaIcrFlagSet):CiaIcrFlagSet; CODE -18; 

26 PROCEDURE AddICRVector( 

27 cia{14}:CiaResourcePtr; icrBit{0}:CiaIcrFlags; 

28 interrupt{9}:InterruptPtr):InterruptPtr; CODE -6; 

29 PROCEDURE RemICRVector(cia{14):CiaResourcePtr; 

30 icrBit{0}:CiaIcrFlags; 

31 interrupt{9}:InterruptPtr); CODE -12; 

32 PROCEDURE SetICR( 

33 cia{14}:CiaResourcePtr; 

34 mask{0}:CiaIcrFlagSet):CiaIcrFlagSet; CODE -24; 

35 

36 TYPE 

37 DiscResourceUnit=RECORD 

38 message:Message; 

39 discBlock:Interrupt; ( 

40 discSync:Interrupt; 

41 index:Interrupt 

42 END; 

43 DiscResourceUnitPtr=POINTER TO DiscResourceUnit; 

44 DiscResourceFlags=( 

45 allocO,allocl,alloc2,alloc3,drf4,drf5,drf6, active 

46 ) ; 

47 DiscResourceFlagSet=SET OF DiscResourceFlags; 

48 DiscResource=RECORD 

49 library:Library; 

so current:DiscResourceUnitPtr; 

51 flags:DiscResourceFlagSet; 

52 pad:UByte; 

53 sysLib:LibraryPtr; 

54 ciaResource:LibraryPtr; 

55 unitID:ARRAY [allocO..alloc3] OF LONGCARD; 

56 waiting:List; 

57 discBlock:Interrupt; 
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1 discSync:Interrupt; 

2 index:Interrupt; 

3 END; 

4 DiscResourcePtr=POINTER TO DiscResource; 

5 

6 CONST 

7 diskName="disk.resource"; 

8 dskDmaOff=4000H; 

9 amiga=0; 

io drt37422D2S=55555555H; 
n empty=OFFFFFFFFH; 

12 

13 PROCEDURE AllocUnit(disk{14}:DiscResourcePtr; 

14 unitNum{0}:LONGINT):LONGINT; CODE -6; 

15 PROCEDURE FreeUnit(disk{14}:DiscResourcePtr; 

16 unitNum{0}:LONGINT); CODE -12; 

17 PROCEDURE GetUnit( 

18 disk{14}:DiscResourcePtr; 

19 unitPointer{9}:DiscResourceUnitPtr 

20 ):DiscResourceUnitPtr; CODE -18; 

21 PROCEDURE GetUnitID( 

22 disk{14}:DiscResourcePtr; 

23 unitNum{0}:LONGINT):LONGCARD; CODE -30; 

24 PROCEDURE GiveUnit(disk{14}:DiscResourcePtr); CODE -24; 

25 

26 CONST 

27 miscName="misc.resource"; 

28 

29 TYPE 

30 ResourceTypes=( 

31 serialPort,serialBits,parallelPort f parallelBits 

32 ) ; 

33 MiscResource=RECORD 

34 library: Library; 

35 allocArray: ARRAY ResourceTypes OF ADDRESS; 

36 END; 

37 MiscResourcePtr=POINTER TO MiscResource; 

38 

39 PROCEDURE AllocMiscResource ( 

40 misc{14}:MiscResourcePtr; 

41 unitNum{0}:LONGINT; 

42 name{ 9} rADDRESS) :ADDRESS; CODE -6; 

43 PROCEDURE FreeMiscResource(misc{14}:MiscResourcePtr; 

44 unitNum{0}:LONGINT); CODE -12; 

45 

46 CONST 

47 potgoName="potgo.resource"; 

48 

49 TYPE 

so PotgoBits=( 

51 Start/pbl/pb2,pb3 , pb4 , pb5,pb 6,pb7 , 

52 datlx,outlx,datly,outly, datrx,outrx,datry,outry,pbl6 

53 ) ; 

54 PotgoBitSet=SET OF PotgoBits; 

55 

56 PROCEDURE AllocPotBits( 

57 potgo{14}: ADDRESS; 
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1 bits{0}: PotgoBitSet): PotgoBitSet; CODE -6; 

2 PROCEDURE FreePotBits(potgo{14): ADDRESS; 

3 allocated{0}: PotgoBitSet); CODE -12; 

4 PROCEDURE WritePotgo(potgo{14}: ADDRESS; 

5 word{0}: PotgoBitSet; 

6 mask{l}: PotgoBitSet); CODE -18; 

7 

8 END Resources. 

9 
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5 (*$M-*) 

6 DEFINITION MODULE Serial; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS,BYTE,LONGSET; 
io FROM Exec IMPORT 

n nonstd,IOFlagSet,IOStdReq,UByte; 

12 

13 CONST 

14 serialName="serial.device"; 

15 query=nonstd; 

16 break=nonstd+l; 

17 setParams=nonstd+ 2 ; 

18 mark=LONGSET{ 0 } ; 

) 19 mSpOn=LONGSET{ 1 } ; 

20 active=IOFlagSet{ 4 } ; 

21 abort=IOFlagSet{ 5 }; 

22 queued=IOFlagSet{ 6 }; 

23 bufrRead=IOFlagSet{ 7 }; 

24 

25 TYPE 

26 IOTArray=RECORD 

27 termArray 0 :LONGCARD; 

28 termArrayl:LONGCARD; 

29 END; 

30 SerFlags=( 

31 partyOn,partyOdd,sevenWire,queuedBrk,radBoogie,shared, 

32 eofMode,xDisabled 

33 ) ; 

34 SerFlagSet=SET OF SerFlags; 

35 Status= ( 

36 busy,paperOut,select,dataSetReady,clearToSend,carrierDetect, 

37 readyToSend,dataTerminalReady,overrun,wroteBreak,readBreak, 

38 xOffWrite,xOffRead 

\ 39 ) ; 

> 40 StatusSet=SET OF Status; 

41 Error= ( 

42 eO,devBusy,baudMismatch,invBaud,bufErr,invParam,ÜneErr, 

43 notOpen,portReset,parityErr,initErr,timerErr,bufOverflow, 

44 nodsr,nocts,detectedBreak 

45 ) ; 

46 IOSerial=RECORD 

47 ioSer:IOStdReq; 

48 ctlChar:LONGCARD; 

49 rBufLen:LONGCARD; 
so extFlags:LONGSET; 

51 baud: LONGCARD; 

52 brkTime:LONGCARD; 

53 termArray:IOTArray; 

54 readLen:UByte; 

55 writeLen:UByte; 

56 stopBits:UByte; 

57 serFlags:SerFlagSet; 
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Serial 


1 Status:StatusSet; 

2 END; 

3 IOSerialPtr=POINTER TO IOExtSer; 

4 

5 END Serial, 
e 
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Timer 


5 (*$M-*) 

6 DEFINITION MODULE Timer; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS; 

10 FROM Exec IMPORT 

11 nonstd,IORequest; 

12 

13 CONST 

14 timerName= ,, timer. de vice"; 

15 addRequest=nonstd+0; 

16 getSysTime=nonstd+l; 

17 setSysTime=nonstd+2; 

18 microHz=0; 

19 vBlank=l; 

20 

21 TYPE 

22 T ime Va 1 =RECORD 

23 sec s : LONGCARD ; 

24 micro: LONGCARD 

25 END; 

26 TimeValPtr=POINTER TO TimeVal; 

27 IOTimer=RECORD 

28 node:IORequest; 

29 time:TimeVal 

30 END; 

31 IOTimerPtr=POINTER TO IOTimer; 

32 

33 PROCEDURE AddTime (timer{ 14} :ADDRESS; 

34 dest{8},source{9} :TimeValPtr) ; CODE -42; 

35 PROCEDURE CmpTime (timer{ 14} :ADDRESS; 

36 tvl { 8 } 7 

37 tv2{9}:TimeValPtr):INTEGER; CODE -54; 

38 PROCEDURE SubTime(timer{14}:ADDRESS; 

39 dest{8},source{9}:TimeValPtr); CODE -48; 

40 

41 END Timer. 

42 
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TrackDisk 


5 (*$M-*) 

6 DEFINITION MODULE TrackDisk; 

7 

8 FROM SYSTEM IMPORT 

9 BYTE,SHIFT; 

io FROM Exec IMPORT 

n clear,read,update,write,nonstd,IOStdReq,Unit 

12 

13 CONST 

14 trackDiskName="trackdisk.device"; 

15 motor=nonstd; 

16 seek=nonstd+l; 

17 format=nonstd+ 2 ; 

18 remove=nonstd+3; 

19 changeNum=nonstd+4; 

20 changeState=nonstd+5; 

21 protStatus=nonstd+6; 

22 rawRead=nonstd+7; 

23 rawWrite=nonstd+8; 

24 getDriveType=nonstd+9; 

25 getNumTracks=nonstd+10; 

26 addChangeInt=nonstd+ll; 

27 remChangeInt=nonstd+12; 

28 lastComm=nonstd+13; 

29 extCom=8000H; 

30 extWrite=write+extCom; 

31 extRead=read+extCom; 

32 extMotor=motor+extCom; 

33 extSeek=seek+extCom; 

34 extFormat=format+extCom; 

35 extUpdate=update+extCom; 

36 extClear=clear+extCom; 

37 extRawRead=rawRead+extCom; 

38 extRawWrite=rawWrite+extCom; 

39 numSecs=ll; 

40 numUnits=4; 

41 sector=512; 

42 secShift=9; 

43 labelSize=16; 

44 indexSync=4; 

45 allowNon35=0; 

46 drive35=l; 

47 drive525=2; 

48 notSpecified=20; 

49 noSecHdr=21; 

so badSecPreamble=22; 

51 badSecId=23; 

52 badHdrSum=24; 

53 badSecSum=25; 

54 tooFewSecs=26; 

55 badSecHdr=2 7; 

56 writeProt=28; 

57 diskChanged=2 9; 
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1 seekError=30; 

2 no’Mem=31; 

3 badUritNum=32; 

4 badDriveType=33; 

5 drivelnüse=34; 

6 postReset=35; 

7 

8 TYPE 

9 IOTrackDisk=RECORD 
io req:IOStdReq; 

n count:LONGCARD; 

12 secLabe1:LONGCARD; 

13 END; 

14 IOTrackDiskPtr=POINTER TO IOTrackDisk; 

15 TDUPublicünit=RECORD 

16 unit:Unit; 

17 compO1Track:CARDINAL; 

18 complOTrack:CARDINAL; 

19 compllTrack:CARDINAL; 

20 stepDelay:LONGCARD; 

21 settleDelay:LONGCARD; 

22 retryCnt:[0..255] 

23 END; 

24 

25 END TrackDisk. 

26 
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Translator 


5 DEFINITION MODULE Translator {"translator.library", 33}; 

6 

7 FROM SYSTEM IMPORT 

8 ADDRESS; 

9 

io CONST 
n notüsed=-l; 

12 noMem=-2; 

13 makeBad=-4; 

14 

15 PROCEDURE Translate(in{8}:ADDRESS; 

16 inLen{0}:LONGINT; 

17 out{9}:ADDRESS; 

18 outLen{1}:LONGINT): LONGINT; CODE -30; 

19 ( 

20 END Translator. 

21 


13-100 



Workbench 


5 (*$M-*) 

6 DEFINITION MODULE Workbench; 

7 

8 FROM SYSTEM IMPORT 

9 ADDRESS; 

io FROM Intuition IMPORT 

n Gadget,GadgetFlags,GadgetFlagSet,NewWindow; 

12 FROM Exec IMPORT 

13 Message,MsgPortPtr,List; 

14 

15 CONST 

16 diskMagic= 0 E 310 H; 

17 diskVersion=l; 

18 gadgetBackFill=GadgetFlagSet{gadgHBox}; 

19 noIconPosition=MIN(LONGINT); 

20 

21 TYPE 

22 WBOb jectType= ( 

23 wbO,disk,drawer,tool,project,garbage,device,kick 

24 ); 

25 MType=(mt 0 ,pstd,toolExit,diskChange,timer,closeDown,ioProc); 

26 DiskObjectPtr=POINTER TO DiskObject; 

27 DrawerDataPtr=POINTER TO DrawerData; 

28 FreeListPtr=POINTER TO FreeList; 

29 WBArgPtr=POINTER TO WBArg; 

30 WBStartupPtr=POINTER TO WBStartup; 

31 WBArg=RECORD 

32 lock: ADDRESS; 

33 name: ADDRESS 

34 END; 

35 WBArgumentsPtr=POINTER TO ARRAY [ 0 .. 255 ] OF WBArg; 

36 WBStartup=RECORD 

37 message:Message; 

38 process:MsgPortPtr; 

39 segment:ADDRESS; 

40 numArgs:LONGINT; 

4 1 toolWindow:ADDRESS; 

42 argList:WBArgumentsPtr; 

43 END; 

44 FreeList=RECORD 

45 numFree: INTEGER; 

46 memList:List 

47 END; 

48 DiskObject=RECORD 

49 magic:CARDINAL; 

50 Version:CARDINAL ; 

51 gadget: Gadget ; 

52 type:WBObjectType; 

53 defaultTool:ADDRESS; 

54 toolTypes:ADDRESS; 

55 currentX:LONGINT; 

56 currentY:LONGINT; 

57 drawerData:DrawerDataPtr; 
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Workbench 


1 toolWindow:ADDRESS; 

2 stackSize:LONGINT 

3 END; 

4 DrawerData=RECORD 

5 newWindow:NewWindow; 

6 currentX:LONGINT; 

7 currentY:LONGINT; 

8 END; 

9 

10 CONST 

11 drawerDataFileSize=SIZE(DrawerData); 

12 

13 END Workbench. 

14 
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14 Cross-Reference 


Auf den folgenden Seiten befindet sich einen alphabetischen Index aller 
in den Kapiteln 12 und 13 deklarierten Bezeichner. Zu jedem Bezeichner 
sind Modulname, Seiten- und Zeilennummer (nur für Kapitel 13) 
angegeben: 


Execute.Dos. 42 13-17 

Die Deklaration von Execute befindet sich demnach in der Beschreibung 
des Moduls Dos auf Seite 13-17 auf der Zeile 42. 
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M2AMIGA enthält eine vollständige Software- 
Entwicklungsumgebung für den professionellen 
Modula-2-Programmierer. Dieses Software-Entwick¬ 
lungssystem ist das effizienteste Werkzeug für die 
leistungsfähige Sprache Modula-2. 

M2AMIGA enthält: 

- einen Einpass-Compiler, der in kürzester Zeit aus 
normalen ASCII-Dateien schnellen 68000- 
Maschinencode erzeugt. 

- Compilerunterstützung von Amigaspezifischem 
wie das Lesen und Schreiben von Registern, Inline 
68000’er-Anweisungen, FFP-Darstellung von 
REAL-Zahlen (nebst IEEE) wie auch Typen doppel¬ 
ter Genauigkeit (LONGINT, LONGCARD, 
LONGREAL). ROM-Aufrufe (EXEC, Intuition, usw.) 
benötigen keinen Zwischencode. 

- einen Editor, der Fehler im Klartext anzeigen kann. 

- einen Linker, der die compilierten Module in 


Sekunden zu einem lauffähigen Programm zusam 
menbindet. 


alle Schnittstellen zum Amiga-Betriäbssystem. 
zahlreiche Grundbibliotheken: Arguments, ASCII, 
Conversions, Coroutines, FileNames, 

FileMessage, FileSystem, FFPConversions, 
FFPInOut, Heap, InOut, LongReallnOut, MathLibO, 
MathLibLong, Pröcesses, RandomNumbers, 
RealConversions, ReallnOut, Storage, Strings, 
Terminal, TextWindows. 
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Dieses Modula-2 Software-Entwicklungssystem wurde selbst mit Modula-2 auf dem Amiga entwickelt. 






